gf -server[=port]

You can now specify which port the HTTP server should run on in server mode.
The default is 41296.
This commit is contained in:
hallgren
2011-12-14 15:28:27 +00:00
parent 02bcfa2098
commit 15678a0fce
4 changed files with 13 additions and 7 deletions

View File

@@ -69,8 +69,8 @@ mainGFI opts files = do
shell opts files = loop opts =<< importInEnv emptyGFEnv opts files
#ifdef SERVER_MODE
mainServerGFI opts0 files =
server (execute1 opts) =<< importInEnv emptyGFEnv opts files
mainServerGFI opts0 port files =
server port (execute1 opts) =<< importInEnv emptyGFEnv opts files
where opts = beQuiet opts0
#else
mainServerGFI opts files =