Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package ghc-transformers-except for
openSUSE:Factory checked in at 2023-01-28 18:44:36
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-transformers-except (Old)
and /work/SRC/openSUSE:Factory/.ghc-transformers-except.new.32243 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-transformers-except"
Sat Jan 28 18:44:36 2023 rev:4 rq:1061637 version:0.1.3
Changes:
--------
---
/work/SRC/openSUSE:Factory/ghc-transformers-except/ghc-transformers-except.changes
2021-08-25 20:58:18.533153261 +0200
+++
/work/SRC/openSUSE:Factory/.ghc-transformers-except.new.32243/ghc-transformers-except.changes
2023-01-28 18:52:18.872999903 +0100
@@ -1,0 +2,6 @@
+Fri Jan 20 05:50:42 UTC 2023 - Peter Simons <psim...@suse.com>
+
+- Update transformers-except to version 0.1.3.
+ Upstream does not provide a change log file.
+
+-------------------------------------------------------------------
Old:
----
transformers-except-0.1.2.tar.gz
New:
----
transformers-except-0.1.3.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-transformers-except.spec ++++++
--- /var/tmp/diff_new_pack.sTyiPy/_old 2023-01-28 18:52:19.245002011 +0100
+++ /var/tmp/diff_new_pack.sTyiPy/_new 2023-01-28 18:52:19.249002033 +0100
@@ -1,7 +1,7 @@
#
# spec file for package ghc-transformers-except
#
-# Copyright (c) 2021 SUSE LLC
+# Copyright (c) 2023 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -18,7 +18,7 @@
%global pkg_name transformers-except
Name: ghc-%{pkg_name}
-Version: 0.1.2
+Version: 0.1.3
Release: 0
Summary: An Except monad transformer with
License: BSD-3-Clause
++++++ transformers-except-0.1.2.tar.gz -> transformers-except-0.1.3.tar.gz
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/transformers-except-0.1.2/src/Control/Monad/Trans/Except/Extra.hs
new/transformers-except-0.1.3/src/Control/Monad/Trans/Except/Extra.hs
--- old/transformers-except-0.1.2/src/Control/Monad/Trans/Except/Extra.hs
2001-09-09 03:46:40.000000000 +0200
+++ new/transformers-except-0.1.3/src/Control/Monad/Trans/Except/Extra.hs
2001-09-09 03:46:40.000000000 +0200
@@ -1,5 +1,4 @@
{-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE RankNTypes #-}
-----------------------------------------------------------------------------
-- |
@@ -44,22 +43,24 @@
, bracketExceptionT
, hushM
+ , onLeft
+ , onNothing
) where
import Control.Exception (Exception, IOException, SomeException)
import qualified Control.Exception as Exception
-import Control.Monad (Monad(..), (=<<))
+import Control.Monad (Monad (..), (=<<))
import Control.Monad.Catch (Handler (..), MonadCatch, MonadMask,
catchAll, mask, throwM)
import qualified Control.Monad.Catch as Catch
import Control.Monad.IO.Class (MonadIO, liftIO)
import Control.Monad.Trans.Class (lift)
import Control.Monad.Trans.Except
-import Data.Maybe (Maybe(..), maybe)
-import Data.Either (Either(..), either)
+import Data.Either (Either (..), either)
import Data.Foldable (Foldable, foldr)
-import Data.Function (($), (.), const, id, flip)
-import Data.Functor (Functor(..))
+import Data.Function (const, flip, id, ($), (.))
+import Data.Functor (Functor (..))
+import Data.Maybe (Maybe (..), maybe)
import System.IO (IO)
@@ -292,3 +293,13 @@
Right a -> return (Just a)
Left e -> f e >> return Nothing
{-# INLINE hushM #-}
+
+-- | Handle the Left constructor in returned Either.
+onLeft :: forall e x m a. Monad m => (e -> ExceptT x m a) -> ExceptT x m
(Either e a) -> ExceptT x m a
+onLeft h f = f >>= either h return
+{-# INLINE onLeft #-}
+
+-- | Handle the Nothing constructor in returned Maybe.
+onNothing :: forall x m a. Monad m => ExceptT x m a -> ExceptT x m (Maybe a)
-> ExceptT x m a
+onNothing h f = f >>= maybe h return
+{-# INLINE onNothing #-}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/transformers-except-0.1.2/transformers-except.cabal
new/transformers-except-0.1.3/transformers-except.cabal
--- old/transformers-except-0.1.2/transformers-except.cabal 2001-09-09
03:46:40.000000000 +0200
+++ new/transformers-except-0.1.3/transformers-except.cabal 2001-09-09
03:46:40.000000000 +0200
@@ -1,41 +1,35 @@
-cabal-version: 3.0
-name: transformers-except
-version: 0.1.2
-license: BSD-3-Clause
-license-file: LICENSE
-author: Tim McGilchrist <timmc...@gmail.com>
-maintainer: Tim McGilchrist <timmc...@gmail.com>
-copyright: (c) 2017 Tim McGilchrist
-synopsis: An Except monad transformer with
-category: System
-build-type: Simple
-tested-with: GHC == 8.10.5
- , GHC == 8.8.4
- , GHC == 8.6.5
- , GHC == 8.4.4
- , GHC == 8.2.2
- , GHC == 8.0.2
+cabal-version: 3.0
+name: transformers-except
+version: 0.1.3
+license: BSD-3-Clause
+license-file: LICENSE
+author: Tim McGilchrist <timmc...@gmail.com>
+maintainer: Tim McGilchrist <timmc...@gmail.com>
+copyright: (c) 2023 Tim McGilchrist
+synopsis: An Except monad transformer with
+category: System
+build-type: Simple
+tested-with:
+ GHC ==8.0.2 || ==8.2.2 || ==8.4.4 || ==8.6.5 || ==8.8.4 || ==8.10.7 ||
==9.0.2 || ==9.2.5
-description: Extra pieces for working with Except
+description: Extra pieces for working with Except
homepage: http://github.com/tmcgilchrist/transformers-either/
bug-reports: http://github.com/tmcgilchrist/transformers-either/issues
+
source-repository head
- type: git
+ type: git
location: https://github.com/tmcgilchrist/transformers-either.git
library
build-depends:
- base >= 4.8 && < 5
- , text == 1.2.*
- , exceptions >= 0.6 && < 0.11
- , transformers >= 0.4 && < 0.6
-
- ghc-options:
- -Wall
- default-language: Haskell98
- hs-source-dirs:
- src
+ , base >=4.8 && <5
+ , exceptions >=0.6 && <0.11
+ , text ^>=1.2
+ , transformers >=0.4 && <0.7
+ ghc-options: -Wall
+ default-language: Haskell98
+ hs-source-dirs: src
exposed-modules:
- Control.Monad.Trans.Except.Extra
- Control.Monad.Trans.Except.Exit
+ Control.Monad.Trans.Except.Exit
+ Control.Monad.Trans.Except.Extra
