summaryrefslogtreecommitdiff
path: root/Foundation.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Foundation.hs')
-rw-r--r--Foundation.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Foundation.hs b/Foundation.hs
index d7425d5..166b83c 100644
--- a/Foundation.hs
+++ b/Foundation.hs
@@ -52,7 +52,7 @@ type Form x = Html -> MForm (HandlerT App IO) (FormResult x, Widget)
52-- Please see the documentation for the Yesod typeclass. There are a number 52-- Please see the documentation for the Yesod typeclass. There are a number
53-- of settings which can be configured by overriding methods here. 53-- of settings which can be configured by overriding methods here.
54instance Yesod App where 54instance Yesod App where
55 approot = ApprootRequest $ \_ req -> maybe "" (TE.decodeUtf8With TEE.lenientDecode) $ Map.lookup "AppRoot" (Map.fromList $ requestHeaders req) 55 approot = guessApproot
56 56
57 -- Store session data on the client in encrypted cookies, 57 -- Store session data on the client in encrypted cookies,
58 -- default session idle timeout is 120 minutes 58 -- default session idle timeout is 120 minutes