Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package ghc-streaming-bytestring for
openSUSE:Factory checked in at 2022-10-13 15:43:05
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-streaming-bytestring (Old)
and /work/SRC/openSUSE:Factory/.ghc-streaming-bytestring.new.2275 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-streaming-bytestring"
Thu Oct 13 15:43:05 2022 rev:8 rq:1008519 version:0.2.4
Changes:
--------
---
/work/SRC/openSUSE:Factory/ghc-streaming-bytestring/ghc-streaming-bytestring.changes
2022-08-01 21:32:03.913943292 +0200
+++
/work/SRC/openSUSE:Factory/.ghc-streaming-bytestring.new.2275/ghc-streaming-bytestring.changes
2022-10-13 15:43:17.598872401 +0200
@@ -1,0 +2,21 @@
+Fri Aug 26 05:30:23 UTC 2022 - Peter Simons <[email protected]>
+
+- Update streaming-bytestring to version 0.2.4.
+ ## 0.2.4 (2022-08-26)
+
+ #### Changed
+
+ - Changed `for`'s callback to return `ByteStream m x`, to clarify that it is
not
+ used.
+
+-------------------------------------------------------------------
+Thu Aug 18 10:11:02 UTC 2022 - Peter Simons <[email protected]>
+
+- Update streaming-bytestring to version 0.2.3.
+ ## 0.2.3 (2022-08-18)
+
+ #### Added
+
+ - Add `for :: Monad m => ByteStream m r -> (P.ByteString -> ByteStream m r)
-> ByteStream m r`
+
+-------------------------------------------------------------------
Old:
----
streaming-bytestring-0.2.2.tar.gz
New:
----
streaming-bytestring-0.2.4.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-streaming-bytestring.spec ++++++
--- /var/tmp/diff_new_pack.qdWsHA/_old 2022-10-13 15:43:19.966877024 +0200
+++ /var/tmp/diff_new_pack.qdWsHA/_new 2022-10-13 15:43:19.978877048 +0200
@@ -19,7 +19,7 @@
%global pkg_name streaming-bytestring
%bcond_with tests
Name: ghc-%{pkg_name}
-Version: 0.2.2
+Version: 0.2.4
Release: 0
Summary: Fast, effectful byte streams
License: BSD-3-Clause
++++++ streaming-bytestring-0.2.2.tar.gz -> streaming-bytestring-0.2.4.tar.gz
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/streaming-bytestring-0.2.2/CHANGELOG.md
new/streaming-bytestring-0.2.4/CHANGELOG.md
--- old/streaming-bytestring-0.2.2/CHANGELOG.md 2022-05-18 19:50:51.000000000
+0200
+++ new/streaming-bytestring-0.2.4/CHANGELOG.md 2022-08-26 07:27:21.000000000
+0200
@@ -1,3 +1,16 @@
+## 0.2.4 (2022-08-26)
+
+#### Changed
+
+- Changed `for`'s callback to return `ByteStream m x`, to clarify that it is
not
+ used.
+
+## 0.2.3 (2022-08-18)
+
+#### Added
+
+- Add `for :: Monad m => ByteStream m r -> (P.ByteString -> ByteStream m r) ->
ByteStream m r`
+
## 0.2.2 (2022-05-18)
#### Changed
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/streaming-bytestring-0.2.2/lib/Streaming/ByteString.hs
new/streaming-bytestring-0.2.4/lib/Streaming/ByteString.hs
--- old/streaming-bytestring-0.2.2/lib/Streaming/ByteString.hs 2021-06-23
21:03:45.000000000 +0200
+++ new/streaming-bytestring-0.2.4/lib/Streaming/ByteString.hs 2022-08-26
07:27:21.000000000 +0200
@@ -72,6 +72,7 @@
-- * Transforming ByteStreams
, map
+ , for
, intercalate
, intersperse
@@ -639,6 +640,20 @@
map f z = dematerialize z Empty (Chunk . B.map f) Go
{-# INLINE map #-}
+-- | @'for' xs f@ applies @f@ to each chunk in the stream, and
+-- concatenates the resulting streams.
+--
+-- Generalised in 0.2.4 to match @streaming@: the callback's (ignored)
+-- return value can be of any type.
+--
+-- @since 0.2.3
+for :: Monad m => ByteStream m r -> (P.ByteString -> ByteStream m x) ->
ByteStream m r
+for stream f = case stream of
+ Empty r -> Empty r
+ Chunk bs bss -> f bs *> for bss f
+ Go m -> Go ((`for` f) <$> m)
+{-# INLINE for #-}
+
-- -- | /O(n)/ 'reverse' @xs@ returns the elements of @xs@ in reverse order.
-- reverse :: ByteString -> ByteString
-- reverse cs0 = rev Empty cs0
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/streaming-bytestring-0.2.2/streaming-bytestring.cabal
new/streaming-bytestring-0.2.4/streaming-bytestring.cabal
--- old/streaming-bytestring-0.2.2/streaming-bytestring.cabal 2022-05-18
19:50:51.000000000 +0200
+++ new/streaming-bytestring-0.2.4/streaming-bytestring.cabal 2022-08-26
07:27:21.000000000 +0200
@@ -1,6 +1,6 @@
cabal-version: >=1.10
name: streaming-bytestring
-version: 0.2.2
+version: 0.2.4
synopsis: Fast, effectful byte streams.
description:
This library enables fast and safe streaming of byte data, in either @Word8@
or
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/streaming-bytestring-0.2.2/tests/Test.hs
new/streaming-bytestring-0.2.4/tests/Test.hs
--- old/streaming-bytestring-0.2.2/tests/Test.hs 2020-10-21
19:01:38.000000000 +0200
+++ new/streaming-bytestring-0.2.4/tests/Test.hs 2022-08-18
12:04:40.000000000 +0200
@@ -370,6 +370,11 @@
unpackToString (Q8.concat (Q8.lineSplit n (fromString str))) == str
, testProperty "concat after lineSplit round trips (CRLF)" $ over ((,) <$>
nats <~> strSeriesCrlf) $ \(n,str) ->
unpackToString (Q8.concat (Q8.lineSplit n (fromString str))) == str
+ , testProperty "'for' is equivalent to the one in streaming" $ over
chunksSeries $ \ss ->
+ let doubleStream b = S.each [b, b]
+ doubleByteStream b = Q.chunk b *> Q.chunk b
+ in unpackToString (Q.fromChunks (S.for (Q.toChunks (fromChunks ss))
doubleStream))
+ == unpackToString (Q.for (fromChunks ss) doubleByteStream)
]
, testGroup "Unit Tests"
[ testCase "hGetContents: Handle stays open" handleIsOpen
