Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package ghc-time-manager for 
openSUSE:Factory checked in at 2023-08-23 14:57:47
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-time-manager (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-time-manager.new.1766 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-time-manager"

Wed Aug 23 14:57:47 2023 rev:6 rq:1105222 version:0.0.1

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-time-manager/ghc-time-manager.changes        
2023-04-04 21:24:19.658524530 +0200
+++ 
/work/SRC/openSUSE:Factory/.ghc-time-manager.new.1766/ghc-time-manager.changes  
    2023-08-23 14:58:59.986138768 +0200
@@ -1,0 +2,6 @@
+Thu Aug 17 06:05:42 UTC 2023 - Peter Simons <[email protected]>
+
+- Update time-manager to version 0.0.1.
+  Upstream does not provide a change log file.
+
+-------------------------------------------------------------------

Old:
----
  time-manager-0.0.0.tar.gz
  time-manager.cabal

New:
----
  time-manager-0.0.1.tar.gz

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

Other differences:
------------------
++++++ ghc-time-manager.spec ++++++
--- /var/tmp/diff_new_pack.8S3poc/_old  2023-08-23 14:59:00.662139976 +0200
+++ /var/tmp/diff_new_pack.8S3poc/_new  2023-08-23 14:59:00.666139984 +0200
@@ -19,19 +19,20 @@
 %global pkg_name time-manager
 %global pkgver %{pkg_name}-%{version}
 Name:           ghc-%{pkg_name}
-Version:        0.0.0
+Version:        0.0.1
 Release:        0
 Summary:        Scalable timer
 License:        MIT
 URL:            https://hackage.haskell.org/package/%{pkg_name}
 Source0:        
https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz
-Source1:        
https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/1.cabal#/%{pkg_name}.cabal
 BuildRequires:  ghc-Cabal-devel
 BuildRequires:  ghc-auto-update-devel
 BuildRequires:  ghc-auto-update-prof
 BuildRequires:  ghc-base-devel
 BuildRequires:  ghc-base-prof
 BuildRequires:  ghc-rpm-macros
+BuildRequires:  ghc-unliftio-devel
+BuildRequires:  ghc-unliftio-prof
 ExcludeArch:    %{ix86}
 
 %description
@@ -65,7 +66,6 @@
 
 %prep
 %autosetup -n %{pkg_name}-%{version}
-cp -p %{SOURCE1} %{pkg_name}.cabal
 
 %build
 %ghc_lib_build

++++++ time-manager-0.0.0.tar.gz -> time-manager-0.0.1.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/time-manager-0.0.0/Setup.hs 
new/time-manager-0.0.1/Setup.hs
--- old/time-manager-0.0.0/Setup.hs     2019-06-04 03:44:28.000000000 +0200
+++ new/time-manager-0.0.1/Setup.hs     1970-01-01 01:00:00.000000000 +0100
@@ -1,2 +0,0 @@
-import Distribution.Simple
-main = defaultMain
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/time-manager-0.0.0/System/TimeManager.hs 
new/time-manager-0.0.1/System/TimeManager.hs
--- old/time-manager-0.0.0/System/TimeManager.hs        2019-06-04 
03:44:28.000000000 +0200
+++ new/time-manager-0.0.1/System/TimeManager.hs        2001-09-09 
03:46:40.000000000 +0200
@@ -10,6 +10,7 @@
   , stopManager
   , killManager
   , withManager
+  , withManager'
   -- ** Registration
   , register
   , registerKillThread
@@ -23,7 +24,7 @@
   ) where
 
 import Control.Concurrent (myThreadId)
-import qualified Control.Exception as E
+import qualified UnliftIO.Exception as E
 import Control.Reaper
 import Data.Typeable (Typeable)
 import Data.IORef (IORef)
@@ -143,10 +144,19 @@
 ----------------------------------------------------------------
 
 -- | Call the inner function with a timeout manager.
+--   'stopManager' is used after that.
 withManager :: Int -- ^ timeout in microseconds
             -> (Manager -> IO a)
             -> IO a
-withManager timeout f = do
-    -- FIXME when stopManager is available, use it
-    man <- initialize timeout
-    f man
+withManager timeout f = E.bracket (initialize timeout)
+                                  stopManager
+                                  f
+
+-- | Call the inner function with a timeout manager.
+--   'killManager' is used after that.
+withManager' :: Int -- ^ timeout in microseconds
+             -> (Manager -> IO a)
+             -> IO a
+withManager' timeout f = E.bracket (initialize timeout)
+                                   killManager
+                                   f
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/time-manager-0.0.0/time-manager.cabal 
new/time-manager-0.0.1/time-manager.cabal
--- old/time-manager-0.0.0/time-manager.cabal   2019-06-04 03:44:28.000000000 
+0200
+++ new/time-manager-0.0.1/time-manager.cabal   2001-09-09 03:46:40.000000000 
+0200
@@ -1,5 +1,5 @@
 Name:                time-manager
-Version:             0.0.0
+Version:             0.0.1
 Synopsis:            Scalable timer
 License:             MIT
 License-file:        LICENSE
@@ -8,12 +8,14 @@
 Homepage:            http://github.com/yesodweb/wai
 Category:            System
 Build-Type:          Simple
-Cabal-Version:       >=1.8
+Cabal-Version:       >=1.10
 Stability:           Stable
 Description:         Scalable timer functions provided by a timer manager.
 
 Library
-  Build-Depends:     base                      >= 4.8        && < 5
+  Build-Depends:     base                      >= 4.12       && < 5
                    , auto-update
+                   , unliftio
+  Default-Language:  Haskell2010
   Exposed-modules:   System.TimeManager
   Ghc-Options:       -Wall

Reply via email to