diff --git a/Foundation.hs b/Foundation.hs
index b1d6123..ea7ee57 100644
--- a/Foundation.hs
+++ b/Foundation.hs
@@ -26,6 +26,7 @@ import Yesod.Auth.Hardcoded
 import Yesod.Auth.Message
 import qualified Data.Text as T
 import Network.Wai as Wai
+import Network.Wai.Request (appearsSecure)
 import Data.List (tail)
 import Data.List.Split
 import Text.Printf
@@ -96,7 +97,7 @@ approotRequest master req =
         Nothing -> appRoot $ appSettings master
     where
         prefix =
-            if isSecure req
+            if appearsSecure req
                 then "https://"
                 else "http://"