05a9be3 · obelisk · git.iko.soy

git.iko.soy/obelisk

executable-config: Look in exe-config on backend/warp

commit05a9be399efe134850d9ffbaa268c73bb0d36da7 authorAli Abrar <aliabrar@gmail.com> dateThu 1 Mar 2018, 22:25 (9 years ago) parent0178fac

1 file changed+1−1

unifiedsplit

lib/executable-config/lookup/src/Obelisk/ExecutableConfig.hs+1−1

@@ -10,4 +10,4 @@ import System.IO.Error

1010get :: Text -> IO (Maybe Text)

1111get path = do

1212 let doesNotExist = \e -> if isDoesNotExistError e then Just () else Nothing

13− catchJust doesNotExist (fmap Just $ T.readFile $ "config" </> T.unpack path) (\_ -> pure Nothing)

13+ catchJust doesNotExist (fmap Just $ T.readFile $ "exe-config" </> T.unpack path) (\_ -> pure Nothing)