From b9066feacc76cbc97b30147deec327e8b20ca28a Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Wed, 10 Sep 2008 07:09:44 +0000
Subject: [PATCH] Fix type error in fastcgi server.

I forgot to fix this after I copied the modified FastCGIUtils from morpho-server.
---
 src/server/MainFastCGI.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/server/MainFastCGI.hs b/src/server/MainFastCGI.hs
index 5e9dd1cee..f57c3f04c 100644
--- a/src/server/MainFastCGI.hs
+++ b/src/server/MainFastCGI.hs
@@ -25,7 +25,7 @@ main = do initFastCGI
           loopFastCGI (handleErrors (handleCGIErrors (fcgiMain r)))
 
 fcgiMain :: DataRef PGF -> CGI CGIResult
-fcgiMain ref = getData PGF.readPGF ref grammarFile >>= cgiMain
+fcgiMain ref = getData (liftIO . PGF.readPGF) ref grammarFile >>= cgiMain
 
 cgiMain :: PGF -> CGI CGIResult
 cgiMain pgf =