From 076286c37bd421137678c5a90fb6b9b895d3845f Mon Sep 17 00:00:00 2001
From: Pierre Radermecker <pierrer@pi3r.be>
Date: Thu, 21 May 2015 18:22:12 +0200
Subject: [PATCH] Add a Exception instance for ServantError

---
 servant-client/src/Servant/Common/Req.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/servant-client/src/Servant/Common/Req.hs b/servant-client/src/Servant/Common/Req.hs
index b726e7a9..1204181b 100644
--- 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