Hello community, here is the log from the commit of package ghc-errors for openSUSE:Factory checked in at 2016-01-28 17:23:45 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-errors (Old) and /work/SRC/openSUSE:Factory/.ghc-errors.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-errors" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-errors/ghc-errors.changes 2015-12-29 12:59:24.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-errors.new/ghc-errors.changes 2016-01-28 17:24:38.000000000 +0100 @@ -1,0 +2,11 @@ +Wed Jan 20 09:14:30 UTC 2016 - [email protected] + +- update to 2.1.1 +* Increase upper bound on transformers-compat + +------------------------------------------------------------------- +Mon Jan 11 07:51:40 UTC 2016 - [email protected] + +- update to 2.1.0 + +------------------------------------------------------------------- Old: ---- errors-2.0.1.tar.gz New: ---- errors-2.1.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-errors.spec ++++++ --- /var/tmp/diff_new_pack.yi2PNP/_old 2016-01-28 17:24:38.000000000 +0100 +++ /var/tmp/diff_new_pack.yi2PNP/_new 2016-01-28 17:24:38.000000000 +0100 @@ -18,7 +18,7 @@ %global pkg_name errors Name: ghc-errors -Version: 2.0.1 +Version: 2.1.1 Release: 0 Summary: Simplified error-handling Group: System/Libraries @@ -34,6 +34,7 @@ BuildRequires: ghc-safe-devel BuildRequires: ghc-transformers-compat-devel BuildRequires: ghc-transformers-devel +BuildRequires: ghc-unexceptionalio-devel # End cabal-rpm deps %description ++++++ errors-2.0.1.tar.gz -> errors-2.1.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/errors-2.0.1/Control/Error/Util.hs new/errors-2.1.1/Control/Error/Util.hs --- old/errors-2.0.1/Control/Error/Util.hs 2015-09-15 20:38:27.000000000 +0200 +++ new/errors-2.1.1/Control/Error/Util.hs 2016-01-16 23:09:57.000000000 +0100 @@ -51,7 +51,7 @@ ) where import Control.Applicative (Applicative, pure, (<$>)) -import qualified Control.Exception as Ex +import Control.Exception (Handler(..), IOException, SomeException) import Control.Monad (liftM) import Control.Monad.IO.Class (MonadIO(liftIO)) import Control.Monad.Trans.Except (ExceptT(ExceptT), runExceptT) @@ -61,6 +61,10 @@ import Data.Maybe (fromMaybe) import System.Exit (ExitCode) import System.IO (hPutStr, hPutStrLn, stderr) +import UnexceptionalIO (UIO, Unexceptional) + +import qualified Control.Exception as Exception +import qualified UnexceptionalIO as UIO -- | Fold an 'ExceptT' by providing one continuation for each constructor exceptT :: Monad m => (a -> m c) -> (b -> m c) -> ExceptT a m b -> m c @@ -231,31 +235,12 @@ errLn :: String -> IO () errLn = hPutStrLn stderr --- | Catch 'Ex.IOException's and convert them to the 'ExceptT' monad -tryIO :: (MonadIO m) => IO a -> ExceptT Ex.IOException m a -tryIO = ExceptT . liftIO . Ex.try +-- | Catch 'IOException's and convert them to the 'ExceptT' monad +tryIO :: MonadIO m => IO a -> ExceptT IOException m a +tryIO = ExceptT . liftIO . Exception.try {-| Catch all exceptions, except for asynchronous exceptions found in @base@ and convert them to the 'ExceptT' monad -} -syncIO :: MonadIO m => IO a -> ExceptT Ex.SomeException m a -syncIO a = ExceptT . liftIO $ Ex.catches (Right <$> a) - [ Ex.Handler $ \e -> Ex.throw (e :: Ex.ArithException) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.ArrayException) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.AssertionFailed) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.AsyncException) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.BlockedIndefinitelyOnMVar) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.BlockedIndefinitelyOnSTM) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.Deadlock) - , Ex.Handler $ \e -> Ex.throw (e :: Dynamic) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.ErrorCall) - , Ex.Handler $ \e -> Ex.throw (e :: ExitCode) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.NestedAtomically) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.NoMethodError) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.NonTermination) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.PatternMatchFail) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.RecConError) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.RecSelError) - , Ex.Handler $ \e -> Ex.throw (e :: Ex.RecUpdError) - , Ex.Handler $ return . Left - ] +syncIO :: Unexceptional m => IO a -> ExceptT SomeException m a +syncIO = ExceptT . UIO.liftUIO . UIO.fromIO diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/errors-2.0.1/errors.cabal new/errors-2.1.1/errors.cabal --- old/errors-2.0.1/errors.cabal 2015-09-15 20:38:27.000000000 +0200 +++ new/errors-2.1.1/errors.cabal 2016-01-16 23:09:57.000000000 +0100 @@ -1,5 +1,5 @@ Name: errors -Version: 2.0.1 +Version: 2.1.1 Cabal-Version: >=1.8.0.2 Build-Type: Simple License: BSD3 @@ -25,7 +25,8 @@ base >= 4 && < 5 , safe >= 0.3.3 && < 0.4, transformers >= 0.2 && < 0.5, - transformers-compat >= 0.4 && < 0.5 + transformers-compat >= 0.4 && < 0.6, + unexceptionalio >= 0.3 && < 0.4 Exposed-Modules: Control.Error, Control.Error.Safe,
