@@ -16,10 +16,11 @@ import Prelude.Compat
17import Control.Concurrent.MVar
17import Control.Concurrent.MVar
18 (modifyMVar, newMVar)
18 (modifyMVar, newMVar)
19−import qualified Data.ByteString as BS
20import Control.Concurrent.STM.TVar
19import Control.Concurrent.STM.TVar
21import Control.Exception
20import Control.Exception
21+ (SomeException (..), catch)
22import Control.Monad
22import Control.Monad
23import Control.Monad.Base
24import Control.Monad.Base
24 (MonadBase (..))
25 (MonadBase (..))
25import Control.Monad.Catch
26import Control.Monad.Catch
@@ -27,15 +28,18 @@ import Control.Monad.Catch
27import Control.Monad.Error.Class
28import Control.Monad.Error.Class
28 (MonadError (..))
29 (MonadError (..))
29import Control.Monad.IO.Class
30import Control.Monad.IO.Class
30− (liftIO)
31+ (MonadIO (..))
31import Control.Monad.Reader
32import Control.Monad.Reader
33+ (MonadReader, ReaderT, ask, runReaderT)
32import Control.Monad.STM
34import Control.Monad.STM
33 (STM, atomically)
35 (STM, atomically)
34import Control.Monad.Trans.Control
36import Control.Monad.Trans.Control
35 (MonadBaseControl (..))
37 (MonadBaseControl (..))
36import Control.Monad.Trans.Except
38import Control.Monad.Trans.Except
39+ (ExceptT, runExceptT)
37import Data.Bifunctor
40import Data.Bifunctor
42+import qualified Data.ByteString as BS
39import Data.ByteString.Builder
43import Data.ByteString.Builder
40 (toLazyByteString)
44 (toLazyByteString)
41import qualified Data.ByteString.Lazy as BSL
45import qualified Data.ByteString.Lazy as BSL
@@ -64,8 +68,8 @@ import Network.HTTP.Types
64 (hContentType, renderQuery, statusCode)
68 (hContentType, renderQuery, statusCode)
65import Servant.Client.Core
69import Servant.Client.Core
67−import qualified Servant.Types.SourceT as S
68import qualified Network.HTTP.Client as Client
71import qualified Network.HTTP.Client as Client
72+import qualified Servant.Types.SourceT as S
70-- | The environment in which a request is run.
74-- | The environment in which a request is run.
71data ClientEnv
75data ClientEnv