Hello community, here is the log from the commit of package ghc-courier for openSUSE:Factory checked in at 2017-04-11 09:37:28 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-courier (Old) and /work/SRC/openSUSE:Factory/.ghc-courier.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-courier" Tue Apr 11 09:37:28 2017 rev:2 rq:483919 version:0.1.1.4 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-courier/ghc-courier.changes 2017-03-24 02:02:05.338201274 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-courier.new/ghc-courier.changes 2017-04-11 09:37:30.521958819 +0200 @@ -1,0 +2,5 @@ +Thu Sep 15 06:39:33 UTC 2016 - psimons@suse.com + +- Update to version 0.1.1.4 revision 0 with cabal2obs. + +------------------------------------------------------------------- Old: ---- courier-0.1.1.3.tar.gz New: ---- courier-0.1.1.4.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-courier.spec ++++++ --- /var/tmp/diff_new_pack.haMVEQ/_old 2017-04-11 09:37:31.077880288 +0200 +++ /var/tmp/diff_new_pack.haMVEQ/_new 2017-04-11 09:37:31.081879723 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-courier # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -19,7 +19,7 @@ %global pkg_name courier %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.1.1.3 +Version: 0.1.1.4 Release: 0 Summary: A message-passing library for simplifying network applications License: MIT @@ -88,7 +88,7 @@ %install %ghc_lib_install -%ghc_fix_dynamic_rpath echo-client echo-server +%ghc_fix_rpath %{pkg_name}-%{version} %check %cabal_test @@ -107,6 +107,6 @@ %files devel -f %{name}-devel.files %defattr(-,root,root,-) -%doc examples +%doc changes.md examples %changelog ++++++ courier-0.1.1.3.tar.gz -> courier-0.1.1.4.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/courier-0.1.1.3/changes.md new/courier-0.1.1.4/changes.md --- old/courier-0.1.1.3/changes.md 2016-07-10 06:59:16.000000000 +0200 +++ new/courier-0.1.1.4/changes.md 2016-08-26 03:07:39.000000000 +0200 @@ -1,3 +1,7 @@ +0.1.1.4 + + * Corrected an issue with memory transport where a message to an unbound destination would be dropped + 0.1.1.3 * Changed with... functions to return specified types in IO, instead of always returning (); not technically a diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/courier-0.1.1.3/courier.cabal new/courier-0.1.1.4/courier.cabal --- old/courier-0.1.1.3/courier.cabal 2016-07-10 06:59:16.000000000 +0200 +++ new/courier-0.1.1.4/courier.cabal 2016-08-26 03:07:39.000000000 +0200 @@ -1,5 +1,5 @@ name: courier -version: 0.1.1.3 +version: 0.1.1.4 synopsis: A message-passing library for simplifying network applications tested-with: GHC == 7.6.3, GHC == 7.8.4, GHC == 7.10.2, GHC == 7.10.3, GHC == 8.0.1 description: Inspired by Erlang's simple message-passing facilities, courier provides roughly similar diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/courier-0.1.1.3/src/Network/Transport/Memory.hs new/courier-0.1.1.4/src/Network/Transport/Memory.hs --- old/courier-0.1.1.3/src/Network/Transport/Memory.hs 2016-07-10 06:59:16.000000000 +0200 +++ new/courier-0.1.1.4/src/Network/Transport/Memory.hs 2016-08-26 03:07:39.000000000 +0200 @@ -67,7 +67,10 @@ disp = do atomically $ do bindings <- readTVar vBindings - env <- readMailbox $ endpointOutbound endpoint + env <- selectMailbox (endpointOutbound endpoint) $ \envelope -> + case M.lookup (messageDestination envelope) bindings of + Just _ -> Just envelope + _ -> Nothing memoryDispatchEnvelope bindings env disp @@ -104,7 +107,7 @@ memoryFlushMessages :: TBindings -> Endpoint -> IO () memoryFlushMessages vBindings endpoint = - atomically $ flush + atomically flush where flush = do bindings <- readTVar vBindings