diff options
| author | hallgren <hallgren@chalmers.se> | 2012-11-14 13:52:45 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2012-11-14 13:52:45 +0000 |
| commit | 2cc39661d9e9b6c04dc71c79b210c475aed4bd03 (patch) | |
| tree | 8e1b93000504f8d2d1f23a0d47c84f4d9d719732 /src/compiler/GFServer.hs | |
| parent | 595a69ba0c7898450fc87e1ab9adbf484d3ba7fd (diff) | |
Add flag --document-root for user with gf --server
This can make it easier to test cloud service updates before installing them.
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) |