io-streams 1.3.3.0 → 1.3.3.1

raw patch · 4 files changed

+20/−15 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• changelog.md +3/−0
• io-streams.cabal +1/−1
• test/System/IO/Streams/Tests/ByteString.hs +2/−2
• test/System/IO/Streams/Tests/List.hs +14/−12

@@ -1,3 +1,6 @@+# Version 1.3.3.1+  - Fixed a testsuite compile error on GHC >= 7.10.+ # Version 1.3.3.0   - Added a new convenience function, like `chunkList` but with a predicate for     when to split, taking current element and current chunk length:

@@ -1,5 +1,5 @@ Name:                io-streams-Version:             1.3.3.0+Version:             1.3.3.1 License:             BSD3 License-file:        LICENSE Category:            Data, Network, IO-Streams

@@ -14,8 +14,8 @@ import           Data.Maybe                           (isJust) import           Data.Monoid import           Prelude                              hiding (lines, read,-                                                       takeWhile, unlines,-                                                       unwords, unwords,+                                                       take, takeWhile,+                                                       unlines, unwords,                                                        words) import qualified Prelude import           System.IO.Streams                    hiding (filter,

@@ -39,20 +39,22 @@     fromList [1..10 :: Int] >>= chunkListWith (\_ n -> n>=3)                             >>= toList                             >>= assertEqual "chunkListWith" [ [1,2,3]-                                                        , [4,5,6]-                                                        , [7,8,9]-                                                        , [10]-                                                        ]+                                                            , [4,5,6]+                                                            , [7,8,9]+                                                            , [10]+                                                            ]     fromList [1..12 :: Int] >>= chunkListWith (\_ n -> n>=3)                             >>= concatLists                             >>= toList                             >>= assertEqual "concatlists" [1..12] -    fromList ['a'..'z' :: Char] >>= chunkListWith (\x n -> n>=4 && x `elem` "aeiouy")-                            >>= toList-                            >>= assertEqual "chunkListWith" ["abcde"-                                                            ,"fghi"-                                                            ,"jklmno"-                                                            ,"pqrstu"-                                                            ,"vwxy"-                                                            ,"z"]+    fromList ['a'..'z' :: Char]+        >>= chunkListWith (\x n -> n>=4 && x `elem` ("aeiouy" :: String))+        >>= toList+        >>= assertEqual "chunkListWith" [ "abcde"+                                        , "fghi"+                                        , "jklmno"+                                        , "pqrstu"+                                        , "vwxy"+                                        , "z"+                                        ]