GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-01 15:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

the pgf service now compiles with the latest CGI package

Browse Source
This commit is contained in:
krasimir
2010-04-22 12:37:36 +00:00
parent 007f501f05
commit 9db279b24b
2 changed files with 12 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/server/FastCGIUtils.hs
View File

@@ -8,7 +8,7 @@ module FastCGIUtils (initFastCGI, loopFastCGI,
splitBy) where
import Control.Concurrent
import Control.OldException
import Control.Exception
import Control.Monad
import Data.Dynamic
import Data.IORef
@@ -143,17 +143,19 @@ stderrToFile s = return ()
-- * General CGI Error exception mechanism
data CGIError = CGIError { cgiErrorCode :: Int, cgiErrorMessage :: String, cgiErrorText :: [String] }
deriving Typeable
deriving (Show,Typeable)
instance Exception CGIError where
toException e = SomeException e
fromException (SomeException e) = cast e
throwCGIError :: Int -> String -> [String] -> CGI a
throwCGIError c m t = throwCGI $ DynException $ toDyn $ CGIError c m t
throwCGIError c m t = throwCGI $ toException $ CGIError c m t
handleCGIErrors :: CGI CGIResult -> CGI CGIResult
handleCGIErrors x = x `catchCGI` \e -> case e of
DynException d -> case fromDynamic d of
Nothing -> throw e
Just (CGIError c m t) -> outputError c m t
_ -> throw e
handleCGIErrors x = x `catchCGI` \e -> case fromException e of
Nothing -> throw e
Just (CGIError c m t) -> outputError c m t
-- * General CGI and JSON stuff