Customize listen port

koterpillar · Jan 14, 2015 · c789f99 · c789f99
1 parent 3f011b6
commit c789f99
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Main.hs b/src/Main.hs
@@ -47,7 +47,9 @@ siteAddress = do
 main :: IO ()
 main = do
     address <- siteAddress
-    simpleHTTP' runApp nullConf $ implSite (T.pack address) "" site
+    listenPort <- lookupEnv "LISTEN_PORT"
+    let conf = nullConf { port = read $ fromMaybe "8000" listenPort }
+    simpleHTTP' runApp conf $ implSite (T.pack address) "" site
 
 index :: AppPart Response
 index = articleList $ const True