db13077 · typeable/servant

git.iko.soy/typeable/servant

on master help sign in

wall clean and compat

db13077Gershom9 years ago

servant-client-core/src/Servant/Client/Core/Internal/HasClient.hs+1−2

compare with master

unifiedsplit

@@ -18,7 +18,6 @@ import Prelude ()

18import Prelude.Compat

20import Control.Concurrent (newMVar, modifyMVar)

21−import Control.Monad (when)

22import Data.Foldable (toList)

21import Data.Foldable (toList)

23import qualified Data.ByteString.Lazy as BL

22import qualified Data.ByteString.Lazy as BL

24import Data.List (foldl')

23import Data.List (foldl')

@@ -266,7 +265,7 @@ instance OVERLAPPABLE_

266 , requestMethod = reflectMethod (Proxy :: Proxy method)

265 , requestMethod = reflectMethod (Proxy :: Proxy method)

267 }

266 }

268 return . buildFromStream $ ResultStream $ \k ->

267 return . buildFromStream $ ResultStream $ \k ->

269− runStreamingResponse sresp $ \(status,_headers,_httpversion,reader) -> do

268+ runStreamingResponse sresp $ \(_status,_headers,_httpversion,reader) -> do

270 let unrender = unrenderFrames (Proxy :: Proxy framing) (Proxy :: Proxy a)

269 let unrender = unrenderFrames (Proxy :: Proxy framing) (Proxy :: Proxy a)

271 loop bs = do

270 loop bs = do

272 res <- BL.fromStrict <$> reader

271 res <- BL.fromStrict <$> reader

servant/src/Servant/API/Stream.hs+1−1

@@ -19,7 +19,7 @@ import Data.Proxy (Proxy)

19import Data.Typeable (Typeable)

20import GHC.Generics (Generic)

21import Text.Read (readMaybe)

22−import Data.Bifunctor (first)

22+import Control.Arrow (first)

23import Network.HTTP.Types.Method (StdMethod (..))

25-- | A Stream endpoint for a given method emits a stream of encoded values at a given Content-Type, delimited by a framing strategy. Steam endpoints always return response code 200 on success. Type synonyms are provided for standard methods.