summaryrefslogtreecommitdiff
path: root/src/compiler/GFServer.hs
diff options
context:
space:
mode:
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 =