Hello community,

here is the log from the commit of package ghc-resourcet for openSUSE:Leap:15.2 
checked in at 2020-05-21 12:58:29
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Leap:15.2/ghc-resourcet (Old)
 and      /work/SRC/openSUSE:Leap:15.2/.ghc-resourcet.new.2738 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-resourcet"

Thu May 21 12:58:29 2020 rev:14 rq:805472 version:1.2.4

Changes:
--------
--- /work/SRC/openSUSE:Leap:15.2/ghc-resourcet/ghc-resourcet.changes    
2020-02-19 18:40:54.534168057 +0100
+++ /work/SRC/openSUSE:Leap:15.2/.ghc-resourcet.new.2738/ghc-resourcet.changes  
2020-05-21 12:58:30.294686017 +0200
@@ -1,0 +2,10 @@
+Wed May  6 06:54:13 UTC 2020 - psim...@suse.com
+
+- Update resourcet to version 1.2.4.
+  # ChangeLog for resourcet
+
+  ## 1.2.3
+
+  * Support `unliftio-core` 0.2.0.0
+
+-------------------------------------------------------------------

Old:
----
  resourcet-1.2.2.tar.gz

New:
----
  resourcet-1.2.4.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ ghc-resourcet.spec ++++++
--- /var/tmp/diff_new_pack.iAPmFJ/_old  2020-05-21 12:58:30.698686896 +0200
+++ /var/tmp/diff_new_pack.iAPmFJ/_new  2020-05-21 12:58:30.698686896 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package ghc-resourcet
 #
-# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2020 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 resourcet
 %bcond_with tests
 Name:           ghc-%{pkg_name}
-Version:        1.2.2
+Version:        1.2.4
 Release:        0
 Summary:        Deterministic allocation and freeing of scarce resources
 License:        BSD-3-Clause

++++++ resourcet-1.2.2.tar.gz -> resourcet-1.2.4.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/resourcet-1.2.2/ChangeLog.md 
new/resourcet-1.2.4/ChangeLog.md
--- old/resourcet-1.2.2/ChangeLog.md    2018-10-06 21:25:16.000000000 +0200
+++ new/resourcet-1.2.4/ChangeLog.md    2020-03-01 09:31:18.000000000 +0100
@@ -1,3 +1,9 @@
+# ChangeLog for resourcet
+
+## 1.2.3
+
+* Support `unliftio-core` 0.2.0.0
+
 ## 1.2.2
 
 * Add `MonadFail` instance for `ResourceT`.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/resourcet-1.2.2/Control/Monad/Trans/Resource/Internal.hs 
new/resourcet-1.2.4/Control/Monad/Trans/Resource/Internal.hs
--- old/resourcet-1.2.2/Control/Monad/Trans/Resource/Internal.hs        
2018-10-06 21:25:16.000000000 +0200
+++ new/resourcet-1.2.4/Control/Monad/Trans/Resource/Internal.hs        
2020-03-01 09:29:47.000000000 +0100
@@ -254,9 +254,11 @@
 
 -- | @since 1.1.10
 instance MonadUnliftIO m => MonadUnliftIO (ResourceT m) where
-  askUnliftIO = ResourceT $ \r ->
-                withUnliftIO $ \u ->
-                return (UnliftIO (unliftIO u . flip unResourceT r))
+  {-# INLINE withRunInIO #-}
+  withRunInIO inner =
+    ResourceT $ \r ->
+    withRunInIO $ \run ->
+    inner (run . flip unResourceT r)
 
 #define GO(T) instance (MonadResource m) => MonadResource (T m) where 
liftResourceT = lift . liftResourceT
 #define GOX(X, T) instance (X, MonadResource m) => MonadResource (T m) where 
liftResourceT = lift . liftResourceT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/resourcet-1.2.2/Control/Monad/Trans/Resource.hs 
new/resourcet-1.2.4/Control/Monad/Trans/Resource.hs
--- old/resourcet-1.2.2/Control/Monad/Trans/Resource.hs 2018-06-21 
14:29:43.000000000 +0200
+++ new/resourcet-1.2.4/Control/Monad/Trans/Resource.hs 2020-04-19 
10:12:17.000000000 +0200
@@ -9,7 +9,7 @@
 {-# LANGUAGE ConstraintKinds #-}
 -- | Allocate resources which are guaranteed to be released.
 --
--- For more information, see 
<https://www.fpcomplete.com/user/snoyberg/library-documentation/resourcet>.
+-- For more information, see 
<https://github.com/snoyberg/conduit/tree/master/resourcet#readme>.
 --
 -- One point to note: all register cleanup actions live in the @IO@ monad, not
 -- the main monad. This allows both more efficient code, and for monads to be
@@ -32,6 +32,7 @@
     , joinResourceT
       -- * Registering/releasing
     , allocate
+    , allocate_
     , register
     , release
     , unprotect
@@ -106,6 +107,22 @@
          -> m (ReleaseKey, a)
 allocate a = liftResourceT . allocateRIO a
 
+-- | Perform some allocation where the return value is not required, and
+-- automatically register a cleanup action.
+--
+-- @allocate_@ is to @allocate@ as @bracket_@ is to @bracket@
+--
+-- This is almost identical to calling the allocation and then
+-- @register@ing the release action, but this properly handles masking of
+-- asynchronous exceptions.
+--
+-- @since 1.2.4
+allocate_ :: MonadResource m
+          => IO a -- ^ allocate
+          -> IO () -- ^ free resource
+          -> m ReleaseKey
+allocate_ a = fmap fst . allocate a . const
+
 -- | Perform asynchronous exception masking.
 --
 -- This is more general then @Control.Exception.mask@, yet more efficient
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/resourcet-1.2.2/resourcet.cabal 
new/resourcet-1.2.4/resourcet.cabal
--- old/resourcet-1.2.2/resourcet.cabal 2018-10-06 21:25:16.000000000 +0200
+++ new/resourcet-1.2.4/resourcet.cabal 2020-04-19 10:12:17.000000000 +0200
@@ -1,5 +1,5 @@
 Name:                resourcet
-Version:             1.2.2
+Version:             1.2.4
 Synopsis:            Deterministic allocation and freeing of scarce resources.
 description:         Hackage documentation generation is not reliable. For up 
to date documentation, please see: <http://www.stackage.org/package/resourcet>.
 License:             BSD3


Reply via email to