git.iko.soy/typeable/servant
on master help sign in
wall clean and compat
commitdb13077ccb93223e606ace6f7a67ac9389375a6a authorGershom <gershom@awakesecurity.com> dateMon 6 Nov 2017, 11:55 (9 years ago) parent90292e1
2 files changed+2−3
compare with master
unifiedsplit
servant-client-core/src/Servant/Client/Core/Internal/HasClient.hs+1−2 servant/src/Servant/API/Stream.hs+1−1
servant-client-core/src/Servant/Client/Core/Internal/HasClient.hs+1−2
@@ -18,7 +18,6 @@ import Prelude ()
1818import Prelude.Compat
1919
2020import Control.Concurrent (newMVar, modifyMVar)
21−import Control.Monad (when)
2221import Data.Foldable (toList)
2322import qualified Data.ByteString.Lazy as BL
2423import Data.List (foldl')
@@ -266,7 +265,7 @@ instance OVERLAPPABLE_
266265 , requestMethod = reflectMethod (Proxy :: Proxy method)
267266 }
268267 return . buildFromStream $ ResultStream $ \k ->
269− runStreamingResponse sresp $ \(status,_headers,_httpversion,reader) -> do
268+ runStreamingResponse sresp $ \(_status,_headers,_httpversion,reader) -> do
270269 let unrender = unrenderFrames (Proxy :: Proxy framing) (Proxy :: Proxy a)
271270 loop bs = do
272271 res <- BL.fromStrict <$> reader
servant/src/Servant/API/Stream.hs+1−1
@@ -19,7 +19,7 @@ import Data.Proxy (Proxy)
1919import Data.Typeable (Typeable)
2020import GHC.Generics (Generic)
2121import Text.Read (readMaybe)
22−import Data.Bifunctor (first)
22+import Control.Arrow (first)
2323import Network.HTTP.Types.Method (StdMethod (..))
2424
2525-- | 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.