haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix warnings

Browse Source
This commit is contained in:
Michael Snoyman 2012-01-12 12:03:16 +02:00
parent 97cface838
commit b268b37086
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-default/Yesod/Default/Config.hs
View File

@ -40,12 +40,12 @@ parseArgConfig :: IO ArgConfig
parseArgConfig = do parseArgConfig = do
args <- getArgs args <- getArgs
(portS, args') <- getPort id args (portS, args') <- getPort id args
port <- portI <-
case reads portS of case reads portS of
(i, _):_ -> return i (i, _):_ -> return i
[] -> error $ "Invalid port value: " ++ show portS [] -> error $ "Invalid port value: " ++ show portS
case args of case args' of
[e] -> return $ ArgConfig e port [e] -> return $ ArgConfig e portI
_ -> do _ -> do
pn <- getProgName pn <- getProgName
putStrLn $ "Usage: " ++ pn ++ " <environment> [--port <port>]" putStrLn $ "Usage: " ++ pn ++ " <environment> [--port <port>]"