From f1fcee964fb33ab1a165544f728dcbb1d511657d Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Tue, 4 Nov 2008 09:28:21 +0000
Subject: pgf-server: write stderr to pgf-error.log, since lighttpd closes
 stderr for fastcgi processes.

---
 src/server/PGFService.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/server/PGFService.hs')

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)))
 
-- 
cgit v1.2.3