diff options
Diffstat (limited to 'src/compiler/GFServer.hs')
| -rw-r--r-- | src/compiler/GFServer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GFServer.hs b/src/compiler/GFServer.hs index ac14804c0..a6e4c5a52 100644 --- a/src/compiler/GFServer.hs +++ b/src/compiler/GFServer.hs @@ -47,12 +47,12 @@ import RunHTTP(cgiHandler) debug s = logPutStrLn s -- | Combined FastCGI and HTTP server -server port execute1 state0 = +server port optroot execute1 state0 = do --stderrToFile logFile state <- newMVar M.empty cache <- PS.newPGFCache datadir <- getDataDir - let root = datadir</>"www" + let root = maybe (datadir</>"www") id optroot -- debug $ "document root="++root setCurrentDirectory root -- FCGI.acceptLoop forkIO (handle_fcgi execute1 state0 state cache) |