@@ -86,17 +86,21 @@
8686-- machinery for performing requests is the same as with @http-conduit@ and
8787-- @wreq@, it's just the API is different.
8888
89−{-# LANGUAGE DataKinds #-}
90−{-# LANGUAGE DeriveDataTypeable #-}
91−{-# LANGUAGE DeriveGeneric #-}
92−{-# LANGUAGE FlexibleInstances #-}
93−{-# LANGUAGE GeneralizedNewtypeDeriving #-}
94−{-# LANGUAGE KindSignatures #-}
95−{-# LANGUAGE OverloadedStrings #-}
96−{-# LANGUAGE RecordWildCards #-}
97−{-# LANGUAGE ScopedTypeVariables #-}
98−{-# LANGUAGE TypeFamilies #-}
89+{-# LANGUAGE CPP #-}
90+{-# LANGUAGE DataKinds #-}
91+{-# LANGUAGE DeriveDataTypeable #-}
92+{-# LANGUAGE DeriveGeneric #-}
93+{-# LANGUAGE FlexibleInstances #-}
94+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
95+{-# LANGUAGE KindSignatures #-}
96+{-# LANGUAGE OverloadedStrings #-}
97+{-# LANGUAGE RecordWildCards #-}
98+{-# LANGUAGE ScopedTypeVariables #-}
99+{-# LANGUAGE TypeFamilies #-}
100+
101+#if __GLASGOW_HASKELL__ >= 800
99102{-# OPTIONS_GHC -fno-warn-redundant-constraints #-}
103+#endif
100104
101105module Network.HTTP.Req
102106 ( -- * Making a request
@@ -172,12 +176,12 @@ module Network.HTTP.Req
172176 , Scheme (..) )
173177where
174178
175−import Control.Applicative ((<|>))
179+import Control.Applicative
176180import Control.Arrow (first, second)
177181import Control.Exception (try)
178182import Control.Monad
179183import Control.Monad.IO.Class
180−import Data.Aeson (FromJSON (..), ToJSON (..), Value)
184+import Data.Aeson (ToJSON (..))
181185import Data.ByteString (ByteString)
182186import Data.Data (Data)
183187import Data.Default.Class
@@ -208,6 +212,10 @@ import qualified Network.HTTP.Req.AWS as AWS
208212import qualified Network.HTTP.Req.OAuth1 as OAuth1
209213import qualified Network.HTTP.Types as Y
210214
215+#if !MIN_VERSION_base(4,8,0)
216+import Data.Word (Word)
217+#endif
218+
211219----------------------------------------------------------------------------
212220-- Making a request
213221
@@ -965,13 +973,11 @@ httpVersion major minor = withRequest $ \x ->
965973--
966974-- Something.
967975
968−-- Here we need to provide various options how to consume responses.
976+-- | Here we need to provide various options how to consume responses.
969977
970978class HttpResponse response where
971979 getHttpResponse :: L.Manager -> L.Request -> IO response
972980
973−-- helpers to
974−
975981----------------------------------------------------------------------------
976982-- Other
977983