diff options
| author | bjorn <bjorn@bringert.net> | 2008-11-04 09:28:21 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-11-04 09:28:21 +0000 |
| commit | f1fcee964fb33ab1a165544f728dcbb1d511657d (patch) | |
| tree | 84ea4e60a79d1a63bd24372fae77e9228021bdce /src/server/PGFService.hs | |
| parent | a6905d654df0fd0c90dbae039da9b50288a52026 (diff) | |
pgf-server: write stderr to pgf-error.log, since lighttpd closes stderr for fastcgi processes.
Diffstat (limited to 'src/server/PGFService.hs')
| -rw-r--r-- | src/server/PGFService.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index 3caf36c91..b6a5b8eb6 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -20,9 +20,12 @@ import Data.Maybe import System.Directory import System.FilePath +logFile :: FilePath +logFile = "pgf-error.log" main :: IO () -main = do initFastCGI +main = do stderrToFile logFile + initFastCGI cache <- newCache PGF.readPGF runFastCGIConcurrent' forkIO 100 (handleErrors (handleCGIErrors (cgiMain cache))) |