summaryrefslogtreecommitdiff
path: root/src/compiler/GFServer.hs
diff options
context:
space:
mode:
authorhallgren <hallgren@chalmers.se>2011-12-14 15:28:27 +0000
committerhallgren <hallgren@chalmers.se>2011-12-14 15:28:27 +0000
commit15678a0fced17d9ed40b8a79985820b15dcc11d8 (patch)
tree17cde9c086c3920c702adaa85cd4ccff5626a7dd /src/compiler/GFServer.hs
parent02bcfa209872699a3bdb0562c15f74100da4d983 (diff)
gf -server[=port]
You can now specify which port the HTTP server should run on in server mode. The default is 41296.
Diffstat (limited to 'src/compiler/GFServer.hs')
-rw-r--r--src/compiler/GFServer.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/compiler/GFServer.hs b/src/compiler/GFServer.hs
index 2c98a0c32..b19b92512 100644
--- a/src/compiler/GFServer.hs
+++ b/src/compiler/GFServer.hs
@@ -40,7 +40,7 @@ import RunHTTP(cgiHandler)
debug s = liftIO (logPutStrLn s)
-- | Combined FastCGI and HTTP server
-server execute1 state0 =
+server port execute1 state0 =
do --stderrToFile logFile
state <- newMVar M.empty
cache <- PS.newPGFCache
@@ -61,7 +61,6 @@ server execute1 state0 =
++show port++"/ in your web browser."
initServer port (modifyMVar state . handle state0 cache execute1)
- port = 41296
{-
-- | FastCGI request handler
handle_fcgi execute1 state0 stateM cache =