skylark-client 0.1.4 → 0.1.5
raw patch · 2 files changed
+6/−5 lines, 2 files
Files
skylark-client.cabal view
@@ -1,5 +1,5 @@ name: skylark-client-version: 0.1.4+version: 0.1.5 synopsis: Skylark client. description: Skylark network client. homepage: https://github.com/githubuser/skylark-client#readme
src/Network/Skylark/Client.hs view
@@ -33,8 +33,9 @@ download device manager request queue = liftIO $ runResourceT $ do response <- flip http manager request- { method = methodGet- , requestHeaders =+ { method = methodGet+ , responseTimeout = Just 120000000+ , requestHeaders = [ (hAccept, sbpContentType) , (hDevice, device) , (hPragma, "proxy")@@ -48,12 +49,12 @@ upload :: MonadIO m => ByteString -> Manager -> Request -> TBQueue ByteString -> m () upload device manager request queue = void $ flip httpLbs manager request- { method = methodPut+ { method = methodPut+ , requestBody = requestBodySourceChunked $ sourceTBQueue queue , requestHeaders = [ (hContentType, sbpContentType) , (hDevice, device) ]- , requestBody = requestBodySourceChunked $ sourceTBQueue queue } -- | Run Skylark client with connections racing.