Fiddle with configs so they actually work.
commit4b536bc50acf618d208c4a9955c41dfbec67b37a
authorDan Bornside <dan.bornside@obsidian.systems>
dateMon 27 May 2019, 22:11 (7 years ago)
parent0233940
lib/executable-config/backend/src/Obelisk/ExecutableConfig/Backend.hs+1−1
@@ -12,7 +12,7 @@
1212{-# LANGUAGE UndecidableInstances #-}
1313module Obelisk.ExecutableConfig.Backend
1414 ( HasBackendConfigs(..)
15− , BackendConfigsT
15+ , BackendConfigsT(..)
1616 , runBackendConfigsT
1717 , mapBackendConfigsT
1818 ) where
lib/frontend/src/Obelisk/Frontend.hs+1
@@ -76,6 +76,7 @@ type ObeliskWidget js t route m =
7676 , PrebuildAgnostic t route (Client m)
7777 , HasFrontendConfigs m
7878 , HasCookies m
79+ , MonadIO (Performable m)
7980 )
8081
8182type PrebuildAgnostic t route m =
lib/run/src/Obelisk/Run.hs+1−1
@@ -95,7 +95,7 @@ runServeAsset :: FilePath -> [Text] -> Snap ()
9595runServeAsset rootPath = Snap.serveAsset "" rootPath . T.unpack . T.intercalate "/"
9696
9797getConfigRoute :: Map Text Text -> IO (Maybe URI)
98−getConfigRoute configs = case Map.lookup "common/route" configs of
98+getConfigRoute configs = case Map.lookup "config/common/route" configs of
9999 Just r -> case URI.mkURI $ T.strip r of
100100 Just route -> pure $ Just route
101101 Nothing -> do