Add a Exception instance for ServantError

This commit is contained in:
Pierre Radermecker 2015-05-21 18:22:12 +02:00
parent 717b18df4e
commit 076286c37b

View file

@ -55,6 +55,8 @@ data ServantError
} }
deriving (Show) deriving (Show)
instance Exception ServantError
data Req = Req data Req = Req
{ reqPath :: String { reqPath :: String
, qs :: QueryText , qs :: QueryText