Foundation: fix schema in approotRequest

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://"