snoyberg/keter
1
1
Fork 0
mirror of https://github.com/snoyberg/keter.git synced 2024-12-15 09:33:06 +03:00
Code Issues Projects Releases Wiki Activity

Code fix

Browse Source
This commit is contained in:
Michael Snoyman 2012-09-14 06:46:13 +03:00
parent da1b03b1d3
commit 50e73b2b0c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Keter/App.hs
View File

@ -105,7 +105,7 @@ start tf portman postgres logger appname bundle removeFromList = do
] ]
Nothing -> [] Nothing -> []
let env = ("PORT", show port) let env = ("PORT", show port)
: ("APPROOT", (if configSsl then "https://" else "http://") ++ configHost config) : ("APPROOT", (if configSsl config then "https://" else "http://") ++ configHost config)
: otherEnv : otherEnv
run run
("config" </> configExec config) ("config" </> configExec config)