Hello community,
here is the log from the commit of package ghc-streaming-commons for
openSUSE:Factory checked in at 2018-07-24 17:22:11
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-streaming-commons (Old)
and /work/SRC/openSUSE:Factory/.ghc-streaming-commons.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-streaming-commons"
Tue Jul 24 17:22:11 2018 rev:15 rq:623862 version:0.2.1.0
Changes:
--------
---
/work/SRC/openSUSE:Factory/ghc-streaming-commons/ghc-streaming-commons.changes
2018-05-30 12:27:22.698128637 +0200
+++
/work/SRC/openSUSE:Factory/.ghc-streaming-commons.new/ghc-streaming-commons.changes
2018-07-24 17:22:14.751289261 +0200
@@ -1,0 +2,14 @@
+Wed Jul 18 14:26:42 UTC 2018 - [email protected]
+
+- Cosmetic: replace tabs with blanks, strip trailing white space,
+ and update copyright headers with spec-cleaner.
+
+-------------------------------------------------------------------
+Fri Jul 13 14:31:59 UTC 2018 - [email protected]
+
+- Update streaming-commons to version 0.2.1.0.
+ ## 0.2.1.0
+
+ * Change `bindRandomPortGen` to use binding to port 0
+
+-------------------------------------------------------------------
@@ -87 +100,0 @@
-
Old:
----
streaming-commons-0.2.0.0.tar.gz
New:
----
streaming-commons-0.2.1.0.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-streaming-commons.spec ++++++
--- /var/tmp/diff_new_pack.AlFiPt/_old 2018-07-24 17:22:15.275289932 +0200
+++ /var/tmp/diff_new_pack.AlFiPt/_new 2018-07-24 17:22:15.275289932 +0200
@@ -19,7 +19,7 @@
%global pkg_name streaming-commons
%bcond_with tests
Name: ghc-%{pkg_name}
-Version: 0.2.0.0
+Version: 0.2.1.0
Release: 0
Summary: Common lower-level functions needed by various streaming data
libraries
License: MIT
++++++ streaming-commons-0.2.0.0.tar.gz -> streaming-commons-0.2.1.0.tar.gz
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/streaming-commons-0.2.0.0/ChangeLog.md
new/streaming-commons-0.2.1.0/ChangeLog.md
--- old/streaming-commons-0.2.0.0/ChangeLog.md 2018-03-02 14:23:34.000000000
+0100
+++ new/streaming-commons-0.2.1.0/ChangeLog.md 2018-06-27 09:12:16.000000000
+0200
@@ -1,3 +1,7 @@
+## 0.2.1.0
+
+* Change `bindRandomPortGen` to use binding to port 0
+
## 0.2.0
* Drop `blaze-builder` dependency
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/streaming-commons-0.2.0.0/Data/Streaming/Network.hs
new/streaming-commons-0.2.1.0/Data/Streaming/Network.hs
--- old/streaming-commons-0.2.0.0/Data/Streaming/Network.hs 2018-02-18
17:52:03.000000000 +0100
+++ new/streaming-commons-0.2.1.0/Data/Streaming/Network.hs 2018-06-27
09:10:50.000000000 +0200
@@ -205,24 +205,10 @@
--
-- Since 0.1.1
bindRandomPortGen :: SocketType -> HostPreference -> IO (Int, Socket)
-bindRandomPortGen sockettype s =
- loop (30 :: Int)
- where
- loop cnt = do
- port <- getUnassignedPort
- esocket <- try $ bindPortGen sockettype port s
- case esocket :: Either IOException Socket of
- Left e
- | cnt <= 1 -> error $ concat
- [ "Data.Streaming.Network.bindRandomPortGen: Could not get
port. Last attempted: "
- , show port
- , ". Exception was: "
- , show e
- ]
- | otherwise -> do
- skipUnassigned 50
- loop $! cnt - 1
- Right socket -> return (port, socket)
+bindRandomPortGen sockettype s = do
+ socket <- bindPortGen sockettype 0 s
+ port <- NS.socketPort socket
+ return (fromIntegral port, socket)
-- | Top 10 Largest IANA unassigned port ranges with no unauthorized uses known
unassignedPortsList :: [Int]
@@ -263,14 +249,6 @@
| i > unassignedPortsMax = (succ unassignedPortsMin, unassignedPorts !
unassignedPortsMin)
| otherwise = (succ i, unassignedPorts ! i)
--- | Skip ahead in the unassigned ports list by the given number
-skipUnassigned :: Int -> IO ()
-skipUnassigned i = do
- !() <- atomicModifyIORef nextUnusedPort $ \j ->
- let k = i + j `mod` unassignedPortsMax
- in k `seq` (k, ())
- return ()
-
-- | Attempt to connect to the given host/port.
getSocketUDP :: String -> Int -> IO (Socket, AddrInfo)
getSocketUDP = getSocketGen NS.Datagram
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/streaming-commons-0.2.0.0/streaming-commons.cabal
new/streaming-commons-0.2.1.0/streaming-commons.cabal
--- old/streaming-commons-0.2.0.0/streaming-commons.cabal 2018-03-02
14:23:34.000000000 +0100
+++ new/streaming-commons-0.2.1.0/streaming-commons.cabal 2018-06-27
09:12:13.000000000 +0200
@@ -1,5 +1,5 @@
name: streaming-commons
-version: 0.2.0.0
+version: 0.2.1.0
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
