diff options
Diffstat (limited to 'CmdLine.hs')
-rw-r--r-- | CmdLine.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -181,7 +181,7 @@ parseServerConfig = ServerConfig <$> option auto ( long "port" <> metavar "P" - <> value 80 + <> value 4242 <> showDefault <> help "Port for server to listen on." ) @@ -243,4 +243,4 @@ hostPortOption = eitherReader $ \s -> (h, ':':ps) -> case reads ps of [(p, "")] -> Right (h, p) _ -> Left $ "unable to parse port \"" ++ ps ++ "\"" - (h, _) -> Right (h, 80) + (h, _) -> Right (h, 4242) |