diff --git a/yesod/scaffold/Settings.hs.cg b/yesod/scaffold/Settings.hs.cg index 5c766c33..9109198e 100644 --- a/yesod/scaffold/Settings.hs.cg +++ b/yesod/scaffold/Settings.hs.cg @@ -91,13 +91,16 @@ loadConfig env = do return $ AppConfig { appEnv = env , appPort = port - , appRoot = pack $ hostS ++ maybeAddPort port + , appRoot = pack $ hostS ++ addPort port , connectionPoolSize = read connectionPoolSizeS } where - maybeAddPort :: Int -> String - maybeAddPort 80 = "" - maybeAddPort p = ":" ++ (show p) + addPort :: Int -> String +#ifdef PRODUCTION + addPort _ = "" +#else + addPort p = ":" ++ (show p) +#endif -- Static setting below. Changing these requires a recompile diff --git a/yesod/scaffold/tiny/Settings.hs.cg b/yesod/scaffold/tiny/Settings.hs.cg index 1158fe2a..bec5d248 100644 --- a/yesod/scaffold/tiny/Settings.hs.cg +++ b/yesod/scaffold/tiny/Settings.hs.cg @@ -72,12 +72,15 @@ loadConfig env = do return $ AppConfig { appEnv = env , appPort = port - , appRoot = pack $ hostS ++ maybeAddPort port + , appRoot = pack $ hostS ++ addPort port } where - maybeAddPort :: Int -> String - maybeAddPort 80 = "" - maybeAddPort p = ":" ++ (show p) + addPort :: Int -> String +#ifdef PRODUCTION + addPort _ = "" +#else + addPort p = ":" ++ (show p) +#endif -- | The location of static files on your system. This is a file system -- path. The default value works properly with your scaffolded site.