diff --git a/src/Foundation.hs b/src/Foundation.hs index 4ca79be..728e759 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -64,10 +64,7 @@ type Form x = Html -> MForm (HandlerT App IO) (FormResult x, Widget) instance Yesod App where -- Controls the base of generated URLs. For more information on modifying, -- see: https://github.com/yesodweb/yesod/wiki/Overriding-approot - approot = ApprootRequest $ \app req -> - case appRoot $ appSettings app of - Nothing -> getApprootText guessApproot app req - Just root -> root + approot = ApprootMaster $ fromMaybe "localhost" . appRoot . appSettings -- Store session data on the client in encrypted cookies, -- default session idle timeout is 120 minutes