wall clean and compat

haskell-servant · Nov 6, 2017 · db13077 · db13077
1 parent 90292e1
commit db13077
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/servant-client-core/src/Servant/Client/Core/Internal/HasClient.hs b/servant-client-core/src/Servant/Client/Core/Internal/HasClient.hs
@@ -18,7 +18,6 @@ import           Prelude                                ()
 import           Prelude.Compat
 
 import           Control.Concurrent                     (newMVar, modifyMVar)
-import           Control.Monad                          (when)
 import           Data.Foldable                          (toList)
 import qualified Data.ByteString.Lazy                   as BL
 import           Data.List                              (foldl')
@@ -266,7 +265,7 @@ instance OVERLAPPABLE_
       , requestMethod = reflectMethod (Proxy :: Proxy method)
       }
    return . buildFromStream $ ResultStream $ \k ->
-     runStreamingResponse sresp $ \(status,_headers,_httpversion,reader) -> do
+     runStreamingResponse sresp $ \(_status,_headers,_httpversion,reader) -> do
       let  unrender = unrenderFrames (Proxy :: Proxy framing) (Proxy :: Proxy a)
            loop bs = do
              res <- BL.fromStrict <$> reader

diff --git a/servant/src/Servant/API/Stream.hs b/servant/src/Servant/API/Stream.hs
@@ -19,7 +19,7 @@ import           Data.Proxy                  (Proxy)
 import           Data.Typeable               (Typeable)
 import           GHC.Generics                (Generic)
 import           Text.Read                   (readMaybe)
-import           Data.Bifunctor              (first)
+import           Control.Arrow               (first)
 import           Network.HTTP.Types.Method   (StdMethod (..))
 
 -- | 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.