From 1c5939d8631fcdb1c246e88670ba78718a421a92 Mon Sep 17 00:00:00 2001
From: Danielle McLean <dani@00dani.me>
Date: Thu, 5 Oct 2017 09:01:35 +1100
Subject: [PATCH] Remove approot-guessing support, since it should always be
 configured in the app settings

---
 src/Foundation.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

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