5716f1f · typeable/req

git.iko.soy/typeable/req

on master help sign in

Finally, fix the build

5716f1fmrkkrp10 years ago

.travis.yml+1−1

compare with master

unifiedsplit

@@ -33,7 +33,7 @@ script:

33 - cabal build

34 - cabal test --show-details=always

35 - cabal sdist

36− - cabal haddock | grep "100%" | wc -l | grep "1"

36+ - cabal haddock | grep "100%" | wc -l | grep "3"

38after_script:

39 - cabal install hpc-coveralls

Network/HTTP/Req.hs+21−15

@@ -86,17 +86,21 @@

86-- machinery for performing requests is the same as with @http-conduit@ and

87-- @wreq@, it's just the API is different.

89−{-# LANGUAGE DataKinds #-}

89+{-# LANGUAGE CPP #-}

90+{-# LANGUAGE DataKinds #-}

90−{-# LANGUAGE DeriveDataTypeable #-}

91+{-# LANGUAGE DeriveDataTypeable #-}

91−{-# LANGUAGE DeriveGeneric #-}

92+{-# LANGUAGE DeriveGeneric #-}

92−{-# LANGUAGE FlexibleInstances #-}

93+{-# LANGUAGE FlexibleInstances #-}

93−{-# LANGUAGE GeneralizedNewtypeDeriving #-}

94+{-# LANGUAGE GeneralizedNewtypeDeriving #-}

94−{-# LANGUAGE KindSignatures #-}

95+{-# LANGUAGE KindSignatures #-}

95−{-# LANGUAGE OverloadedStrings #-}

96+{-# LANGUAGE OverloadedStrings #-}

96−{-# LANGUAGE RecordWildCards #-}

97+{-# LANGUAGE RecordWildCards #-}

97−{-# LANGUAGE ScopedTypeVariables #-}

98+{-# LANGUAGE ScopedTypeVariables #-}

98−{-# LANGUAGE TypeFamilies #-}

99+{-# LANGUAGE TypeFamilies #-}

100+

101+#if __GLASGOW_HASKELL__ >= 800

99{-# OPTIONS_GHC -fno-warn-redundant-constraints #-}

102{-# OPTIONS_GHC -fno-warn-redundant-constraints #-}

103+#endif

100

104

101module Network.HTTP.Req

105module Network.HTTP.Req

102 ( -- * Making a request

106 ( -- * Making a request

@@ -172,12 +176,12 @@ module Network.HTTP.Req

172 , Scheme (..) )

176 , Scheme (..) )

173where

177where

174

178

175−import Control.Applicative ((<|>))

179+import Control.Applicative

176import Control.Arrow (first, second)

180import Control.Arrow (first, second)

177import Control.Exception (try)

181import Control.Exception (try)

178import Control.Monad

182import Control.Monad

179import Control.Monad.IO.Class

183import Control.Monad.IO.Class

180−import Data.Aeson (FromJSON (..), ToJSON (..), Value)

184+import Data.Aeson (ToJSON (..))

181import Data.ByteString (ByteString)

185import Data.ByteString (ByteString)

182import Data.Data (Data)

186import Data.Data (Data)

183import Data.Default.Class

187import Data.Default.Class

@@ -208,6 +212,10 @@ import qualified Network.HTTP.Req.AWS as AWS

208import qualified Network.HTTP.Req.OAuth1 as OAuth1

212import qualified Network.HTTP.Req.OAuth1 as OAuth1

209import qualified Network.HTTP.Types as Y

213import qualified Network.HTTP.Types as Y

210

214

215+#if !MIN_VERSION_base(4,8,0)

216+import Data.Word (Word)

217+#endif

218+

211----------------------------------------------------------------------------

219----------------------------------------------------------------------------

212-- Making a request

220-- Making a request

213

221

@@ -965,13 +973,11 @@ httpVersion major minor = withRequest $ \x ->

965--

973--

966-- Something.

974-- Something.

967

975

968−-- Here we need to provide various options how to consume responses.

976+-- | Here we need to provide various options how to consume responses.

969

977

970class HttpResponse response where

978class HttpResponse response where

971 getHttpResponse :: L.Manager -> L.Request -> IO response

979 getHttpResponse :: L.Manager -> L.Request -> IO response

972

980

973−-- helpers to

974−

975----------------------------------------------------------------------------

981----------------------------------------------------------------------------

976-- Other

982-- Other

977

983

req.cabal+1−1

@@ -60,7 +60,7 @@ library

60 , base >= 4.7 && < 5.0

61 , binary >= 0.8 && < 0.9

62 , blaze-builder >= 0.3 && < 0.5

63− , bytestring >= 0.2 && < 0.11

63+ , bytestring >= 0.10.8 && < 0.11

64 , case-insensitive >= 0.2 && < 1.3

65 , connection >= 0.2.2 && < 0.3

66 , data-default-class