http-semantics 0.1.0 → 0.1.1

raw patch · 2 files changed

+13/−8 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Network/HTTP/Semantics/FillBuf.hs +12/−7
• http-semantics.cabal +1/−1

@@ -144,15 +144,20 @@         case signal of             B.Done ->                 next total' (buf `plusPtr` len) (room - len)-            B.More _ writer ->-                return $ Next total' False (Just $ goMore writer 0)+            B.More minReq writer ->+                return $ Next total' False (Just $ goMore (Just minReq) writer 0)             B.Chunk bs writer ->                 return $ Next total' False (Just $ goChunk bs writer 0) -    goMore :: B.BufferWriter -> NextWithTotal-    goMore writer = \total buf room -> do-        writeResult <- writer buf room-        ranWriter writeResult total buf room+    goMore :: Maybe Int -> B.BufferWriter -> NextWithTotal+    goMore mMinReq writer = \total buf room -> do+        let enoughRoom = maybe True (room >=) mMinReq+        if enoughRoom+            then do+              writeResult <- writer buf room+              ranWriter writeResult total buf room+            else do+              return $ Next total True (Just $ goMore mMinReq writer 0)      goChunk :: ByteString -> B.BufferWriter -> NextWithTotal     goChunk bs writer = \total buf room ->@@ -160,7 +165,7 @@             then do                 buf' <- copy buf bs                 let len = BS.length bs-                goMore writer (total + len) buf' (room - len)+                goMore Nothing writer (total + len) buf' (room - len)             else do                 let (bs1, bs2) = BS.splitAt room bs                 void $ copy buf bs1

@@ -1,6 +1,6 @@ cabal-version:      >=1.10 name:               http-semantics-version:            0.1.0+version:            0.1.1 license:            BSD3 license-file:       LICENSE maintainer:         Kazu Yamamoto <kazu@iij.ad.jp>