From 15678a0fced17d9ed40b8a79985820b15dcc11d8 Mon Sep 17 00:00:00 2001 From: hallgren Date: Wed, 14 Dec 2011 15:28:27 +0000 Subject: gf -server[=port] You can now specify which port the HTTP server should run on in server mode. The default is 41296. --- src/compiler/GFI.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/compiler/GFI.hs') diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs index 5b807eb7a..3fd751739 100644 --- a/src/compiler/GFI.hs +++ b/src/compiler/GFI.hs @@ -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 = -- cgit v1.2.3