diff options
| author | bjorn <bjorn@bringert.net> | 2008-09-10 07:09:44 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-09-10 07:09:44 +0000 |
| commit | b9066feacc76cbc97b30147deec327e8b20ca28a (patch) | |
| tree | 3a120fb921587efed7540c395ef0a8e381069d7f /src/server | |
| parent | e7106b61816853057e874bb2041657cc8e76bfc9 (diff) | |
Fix type error in fastcgi server.
I forgot to fix this after I copied the modified FastCGIUtils from morpho-server.
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/MainFastCGI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 = |