From cf0197fb463a5e1235bee1e4bab07cec0d15097b Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Thu, 16 Mar 2017 16:17:50 +0100
Subject: Guess approot

---
 Foundation.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
 -- Please see the documentation for the Yesod typeclass. There are a number
 -- of settings which can be configured by overriding methods here.
 instance Yesod App where
-    approot = ApprootRequest $ \_ req -> maybe "" (TE.decodeUtf8With TEE.lenientDecode) $ Map.lookup "AppRoot" (Map.fromList $ requestHeaders req)
+    approot = guessApproot
 
     -- Store session data on the client in encrypted cookies,
     -- default session idle timeout is 120 minutes
-- 
cgit v1.2.3