diff --git a/Foundation.hs b/Foundation.hs
index 49c0c2d..28faa47 100644
--- a/Foundation.hs
+++ b/Foundation.hs
@@ -124,9 +124,9 @@ approotRequest master req =
       Nothing -> appRoot $ appSettings master
     where
       prefix =
-        case isSecure req of
+        case "https://" `T.isPrefixOf` (appRoot $ appSettings master) of
           True  -> "https://"
-          False -> (fst $ breakOn ":" $ appRoot $ appSettings master) `T.append` "://"
+          False -> "http://"
 
 -- Please see the documentation for the Yesod typeclass. There are a number
 -- of settings which can be configured by overriding methods here.