Add a Exception instance for ServantError
This commit is contained in:
parent
717b18df4e
commit
076286c37b
1 changed files with 2 additions and 0 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue