streaming-commons 0.2.2.0 → 0.2.2.1

raw patch · 3 files changed

+15/−11 lines, 3 files

Files

• ChangeLog.md +4/−0
• streaming-commons.cabal +1/−1
• test/Data/Streaming/ByteString/BuilderSpec.hs +10/−10

@@ -1,5 +1,9 @@ # ChangeLog for streaming-commons +## 0.2.2.1++* Fix test suite compilation issue [stackage#5528](https://github.com/commercialhaskell/stackage/issues/5528)+ ## 0.2.2.0  * Remove `AI_ADDRCONFIG` [#58](https://github.com/fpco/streaming-commons/issues/58)

@@ -1,5 +1,5 @@ name:                streaming-commons-version:             0.2.2.0+version:             0.2.2.1 synopsis:            Common lower-level functions needed by various streaming data libraries description:         Provides low-dependency functionality commonly needed by various streaming data libraries, such as conduit and pipes. homepage:            https://github.com/fpco/streaming-commons

@@ -107,16 +107,16 @@         builderSpec          let prop_idempotent i bss' = do-            let bss = mconcat (map (B.byteString . S.pack) bss')-            ior <- newIORef []-            toByteStringIOWith 16-                               (\s -> do let s' = S.copy s-                                         s' `seq` modifyIORef ior (s' :))-                               bss-            chunks <- readIORef ior-            let have = L.unpack (L.fromChunks (reverse chunks))-                want = L.unpack (B.toLazyByteString bss)-            (i, have) `shouldBe` (i, want)+              let bss = mconcat (map (B.byteString . S.pack) bss')+              ior <- newIORef []+              toByteStringIOWith 16+                                 (\s -> do let s' = S.copy s+                                           s' `seq` modifyIORef ior (s' :))+                                 bss+              chunks <- readIORef ior+              let have = L.unpack (L.fromChunks (reverse chunks))+                  want = L.unpack (B.toLazyByteString bss)+              (i, have) `shouldBe` (i, want)          prop "toByteStringIO idempotent to toLazyByteString" (prop_idempotent (0::Int))