Change default for --port to 4242.

1 files changed, 2 insertions, 2 deletions

diff --git a/CmdLine.hs b/CmdLine.hs
index 155a628..3ba4e23 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -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)