remove HasHttpManager instance and http-conduit dependency.
This commit is contained in:
parent
a62a827491
commit
1ceecff28f
2 changed files with 1 additions and 9 deletions
|
@ -53,7 +53,6 @@ library
|
||||||
, text >= 1.2 && < 1.3
|
, text >= 1.2 && < 1.3
|
||||||
, transformers >= 0.3 && < 0.6
|
, transformers >= 0.3 && < 0.6
|
||||||
, transformers-compat >= 0.4 && < 0.6
|
, transformers-compat >= 0.4 && < 0.6
|
||||||
, http-conduit
|
|
||||||
, mtl
|
, mtl
|
||||||
hs-source-dirs: src
|
hs-source-dirs: src
|
||||||
default-language: Haskell2010
|
default-language: Haskell2010
|
||||||
|
|
|
@ -21,12 +21,6 @@ import Control.Monad.Error.Class (MonadError(..))
|
||||||
#endif
|
#endif
|
||||||
import Control.Monad.Trans.Except
|
import Control.Monad.Trans.Except
|
||||||
|
|
||||||
#if MIN_VERSION_http_client(0,4,19)
|
|
||||||
import Network.HTTP.Client hiding (Proxy, path)
|
|
||||||
#else
|
|
||||||
import Network.HTTP.Client.Conduit hiding (Proxy, path)
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
import GHC.Generics
|
import GHC.Generics
|
||||||
import Control.Monad.IO.Class ()
|
import Control.Monad.IO.Class ()
|
||||||
|
@ -40,6 +34,7 @@ import Data.Text.Encoding
|
||||||
import Data.Typeable
|
import Data.Typeable
|
||||||
import Network.HTTP.Media
|
import Network.HTTP.Media
|
||||||
import Network.HTTP.Types
|
import Network.HTTP.Types
|
||||||
|
import Network.HTTP.Client hiding (Proxy, path)
|
||||||
import qualified Network.HTTP.Types.Header as HTTP
|
import qualified Network.HTTP.Types.Header as HTTP
|
||||||
import Network.URI hiding (path)
|
import Network.URI hiding (path)
|
||||||
import Servant.API.ContentTypes
|
import Servant.API.ContentTypes
|
||||||
|
@ -173,8 +168,6 @@ data ClientEnv
|
||||||
, baseUrl :: BaseUrl
|
, baseUrl :: BaseUrl
|
||||||
}
|
}
|
||||||
|
|
||||||
instance HasHttpManager ClientEnv where
|
|
||||||
getHttpManager = manager
|
|
||||||
|
|
||||||
-- | @ClientM@ is the monad in which client functions run. Contains the
|
-- | @ClientM@ is the monad in which client functions run. Contains the
|
||||||
-- 'Manager' and 'BaseUrl' used for requests in the reader environment.
|
-- 'Manager' and 'BaseUrl' used for requests in the reader environment.
|
||||||
|
|
Loading…
Reference in a new issue