@@ -7,7 +7,9 @@ import Lib
77
88main :: IO ()
99main = do
10− env <- getEnvironment
11− let port = maybe 2000 read $ lookup "PORT" env
10+ env <- lookupEnv "PORT"
11+ let port = maybe 2000 read env :: Int
12+ putStrLn $ "Starting on port: " ++ show port
13+ print env
1214 srv <- createServer
1315 run port $ serve server srv