From c234222cd90e9f5611d193f8a416bccfde517493 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Thu, 2 Sep 2010 13:54:16 +0000
Subject: [PATCH] Bug fix: add missing error handler for statically served
 files in pgf-server HTTP mode

---
 src/server/PGFService.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs
index 4d8cd2f51..c858752e0 100644
--- a/src/server/PGFService.hs
+++ b/src/server/PGFService.hs
@@ -49,6 +49,7 @@ httpMain cache port = runHTTP port (do log ; serve =<< getPath)
              logCGI $ method++" "++uri
 
     serve path =
+        handleErrors . handleCGIErrors $
         if takeExtension path==".pgf"
         then cgiMain' cache path
         else if takeFileName path=="grammars.cgi"
@@ -71,11 +72,11 @@ fcgiMain cache =
 getPath = getVarWithDefault "SCRIPT_FILENAME" ""
 
 cgiMain :: Cache PGF -> CGI CGIResult
-cgiMain cache = cgiMain' cache =<< getPath
+cgiMain cache = handleErrors . handleCGIErrors $
+                  cgiMain' cache =<< getPath
 
 cgiMain' :: Cache PGF -> FilePath -> CGI CGIResult
 cgiMain' cache path =
-  handleErrors . handleCGIErrors $
     do pgf <- liftIO $ readCache cache path
        command <- liftM (maybe "grammar" (urlDecodeUnicode . UTF8.decodeString)) (getInput "command")
        pgfMain pgf command