Add a Exception instance for ServantError

2015-05-21 18:22:12 +02:00 · 2015-05-21 18:22:12 +02:00 · 076286c37b
commit 076286c37b
parent 717b18df4e
1 changed files with 2 additions and 0 deletions
--- a/servant-client/src/Servant/Common/Req.hs
+++ b/servant-client/src/Servant/Common/Req.hs
@ -55,6 +55,8 @@ data ServantError
    }
  deriving (Show)

+instance Exception ServantError
+
 data Req = Req
  { reqPath   :: String
  , qs        :: QueryText