From 7b57b98368946404546abc6058d46f8493306cca Mon Sep 17 00:00:00 2001
From: Christian Klinger <io@klinch.de>
Date: Tue, 6 Sep 2016 13:11:01 +0200
Subject: [PATCH] added mtl workaround and instances for Generics and
 HasHttpManager

---
 servant-client/src/Servant/Common/Req.hs | 22 +++++++++++++++++-----
 1 file changed, 17 insertions(+), 5 deletions(-)

diff --git a/servant-client/src/Servant/Common/Req.hs b/servant-client/src/Servant/Common/Req.hs
index 425ef966..aa6226cf 100644
--- a/servant-client/src/Servant/Common/Req.hs
+++ b/servant-client/src/Servant/Common/Req.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE DeriveDataTypeable  #-}
+{-# LANGUAGE DeriveGeneric       #-}
 {-# LANGUAGE CPP                 #-}
 {-# LANGUAGE OverloadedStrings   #-}
 {-# LANGUAGE ScopedTypeVariables #-}
@@ -12,7 +13,15 @@ import Control.Applicative
 import Control.Exception
 import Control.Monad
 import Control.Monad.Catch (MonadThrow)
-import Control.Monad.Except
+
+#if MIN_VERSION_mtl(2,2,0)
+import Control.Monad.Except (MonadError(..))
+#else
+import Control.Monad.Error.Class (MonadError(..))
+#endif
+import Control.Monad.Trans.Except
+
+import GHC.Generics
 import Control.Monad.IO.Class ()
 import Control.Monad.Reader
 import Data.ByteString.Lazy hiding (pack, filter, map, null, elem)
@@ -152,17 +161,20 @@ parseRequest url = liftM disableStatusCheck (parseUrl url)
 displayHttpRequest :: Method -> String
 displayHttpRequest httpmethod = "HTTP " ++ cs httpmethod ++ " request"
 
--- previously: 
---type ClientM = ExceptT ServantError IO
-
 data ClientEnv
   = ClientEnv
   { manager :: Manager
   , baseUrl :: BaseUrl
   }
 
+instance HasHttpManager ClientEnv where
+    getHttpManager = manager
+
+-- | @ClientM@ is the monad in which client functions run. Contains the
+-- 'Manager' and 'BaseUrl' used for requests in the reader environment.
+
 newtype ClientM a = ClientM { runClientM' :: ReaderT ClientEnv (ExceptT ServantError IO) a }
-                    deriving ( Functor, Applicative, Monad, MonadIO
+                    deriving ( Functor, Applicative, Monad, MonadIO, Generic
                              , MonadReader ClientEnv
                              , MonadError ServantError
                              )