diff options
author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-16 16:47:23 +0100 |
---|---|---|
committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-16 16:47:23 +0100 |
commit | 6cf1b9b7bbca3d6598f9504ab4cb48c2b4677c76 (patch) | |
tree | 42fc074e4bba496c48c0fac472a4d8b829725d92 | |
parent | cf0197fb463a5e1235bee1e4bab07cec0d15097b (diff) | |
download | bar-6cf1b9b7bbca3d6598f9504ab4cb48c2b4677c76.tar bar-6cf1b9b7bbca3d6598f9504ab4cb48c2b4677c76.tar.gz bar-6cf1b9b7bbca3d6598f9504ab4cb48c2b4677c76.tar.bz2 bar-6cf1b9b7bbca3d6598f9504ab4cb48c2b4677c76.tar.xz bar-6cf1b9b7bbca3d6598f9504ab4cb48c2b4677c76.zip |
Revert "Guess approot"
This reverts commit cf0197fb463a5e1235bee1e4bab07cec0d15097b.
-rw-r--r-- | Foundation.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Foundation.hs b/Foundation.hs index 166b83c..d7425d5 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. |
54 | instance Yesod App where | 54 | instance Yesod App where |
55 | approot = guessApproot | 55 | approot = ApprootRequest $ \_ req -> maybe "" (TE.decodeUtf8With TEE.lenientDecode) $ Map.lookup "AppRoot" (Map.fromList $ requestHeaders req) |
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 |