summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2017-03-16 16:47:23 +0100
committerGregor Kleen <gkleen@yggdrasil.li>2017-03-16 16:47:23 +0100
commit6cf1b9b7bbca3d6598f9504ab4cb48c2b4677c76 (patch)
tree42fc074e4bba496c48c0fac472a4d8b829725d92
parentcf0197fb463a5e1235bee1e4bab07cec0d15097b (diff)
downloadbar-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.hs2
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.
54instance Yesod App where 54instance 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