Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename function
authorunc0rr
Fri, 10 Oct 2008 13:19:05 +0000
changeset 1342 ae6c4f10ace2
parent 1341 86d7d5ab22a2
child 1343 7a47a80b20ad
Rename function
netserver/Opts.hs file | annotate | diff | comparison | revisions 
--- a/netserver/Opts.hs	Fri Oct 10 13:18:45 2008 +0000
+++ b/netserver/Opts.hs	Fri Oct 10 13:19:05 2008 +0000
@@ -11,11 +11,11 @@
 
 options :: [OptDescr Flag]
 options = [
-	Option ['p'] ["port"] (OptArg defaultPort "PORT") "listen on PORT"
+	Option ['p'] ["port"] (OptArg readPort "PORT") "listen on PORT"
 	]
 
-defaultPort :: Maybe String -> Flag
-defaultPort str = ListenPort $ fromInteger (fromMaybe 46631 (maybeRead (fromMaybe "46631" str) :: Maybe Integer))
+readPort :: Maybe String -> Flag
+readPort str = ListenPort $ fromInteger (fromMaybe 46631 (maybeRead (fromMaybe "46631" str) :: Maybe Integer))
 
 opts :: IO [Flag]
 opts = do
hedgewars