Hello community, here is the log from the commit of package ghc-quickcheck-io for openSUSE:Factory checked in at 2017-08-31 20:58:11 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-quickcheck-io (Old) and /work/SRC/openSUSE:Factory/.ghc-quickcheck-io.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-quickcheck-io" Thu Aug 31 20:58:11 2017 rev:3 rq:513461 version:0.2.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-quickcheck-io/ghc-quickcheck-io.changes 2016-11-10 13:20:26.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-quickcheck-io.new/ghc-quickcheck-io.changes 2017-08-31 20:58:13.048630138 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:08:13 UTC 2017 - psimons@suse.com + +- Update to version 0.2.0. + +------------------------------------------------------------------- Old: ---- quickcheck-io-0.1.4.tar.gz New: ---- quickcheck-io-0.2.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-quickcheck-io.spec ++++++ --- /var/tmp/diff_new_pack.nIs6CV/_old 2017-08-31 20:58:14.036491341 +0200 +++ /var/tmp/diff_new_pack.nIs6CV/_new 2017-08-31 20:58:14.044490217 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-quickcheck-io # -# 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 @@ -18,7 +18,7 @@ %global pkg_name quickcheck-io Name: ghc-%{pkg_name} -Version: 0.1.4 +Version: 0.2.0 Release: 0 Summary: Use HUnit assertions as QuickCheck properties License: MIT ++++++ quickcheck-io-0.1.4.tar.gz -> quickcheck-io-0.2.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/quickcheck-io-0.1.4/LICENSE new/quickcheck-io-0.2.0/LICENSE --- old/quickcheck-io-0.1.4/LICENSE 2016-10-16 05:40:36.000000000 +0200 +++ new/quickcheck-io-0.2.0/LICENSE 2017-06-16 09:25:45.000000000 +0200 @@ -1,4 +1,4 @@ -Copyright (c) 2013 Simon Hengel <sol@typeful.net> +Copyright (c) 2013-2017 Simon Hengel <sol@typeful.net> Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/quickcheck-io-0.1.4/quickcheck-io.cabal new/quickcheck-io-0.2.0/quickcheck-io.cabal --- old/quickcheck-io-0.1.4/quickcheck-io.cabal 2016-10-16 05:40:36.000000000 +0200 +++ new/quickcheck-io-0.2.0/quickcheck-io.cabal 2017-06-16 09:25:45.000000000 +0200 @@ -1,9 +1,9 @@ --- This file has been generated from package.yaml by hpack version 0.15.0. +-- This file has been generated from package.yaml by hpack version 0.18.0. -- -- see: https://github.com/sol/hpack name: quickcheck-io -version: 0.1.4 +version: 0.2.0 synopsis: Use HUnit assertions as QuickCheck properties description: This package provides an orphan instance that allows you to use HUnit assertions as QuickCheck properties. @@ -12,7 +12,7 @@ bug-reports: https://github.com/hspec/quickcheck-io/issues license: MIT license-file: LICENSE -copyright: (c) 2013 Simon Hengel +copyright: (c) 2013-2017 Simon Hengel author: Simon Hengel <sol@typeful.net> maintainer: Simon Hengel <sol@typeful.net> build-type: Simple @@ -27,9 +27,11 @@ src ghc-options: -Wall build-depends: - QuickCheck >= 2.5.1 + QuickCheck >= 2.7 , HUnit >= 1.2.5 , base == 4.* exposed-modules: Test.QuickCheck.IO + other-modules: + Paths_quickcheck_io default-language: Haskell2010 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/quickcheck-io-0.1.4/src/Test/QuickCheck/IO.hs new/quickcheck-io-0.2.0/src/Test/QuickCheck/IO.hs --- old/quickcheck-io-0.1.4/src/Test/QuickCheck/IO.hs 2016-10-16 05:40:36.000000000 +0200 +++ new/quickcheck-io-0.2.0/src/Test/QuickCheck/IO.hs 2017-06-16 09:25:45.000000000 +0200 @@ -1,4 +1,6 @@ -{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances #-} +{-# LANGUAGE CPP #-} +{-# LANGUAGE TypeSynonymInstances #-} +{-# LANGUAGE FlexibleInstances #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Test.QuickCheck.IO where @@ -13,19 +15,18 @@ #endif propertyIO :: Assertion -> Property -#if MIN_VERSION_QuickCheck(2,7,0) propertyIO action = ioProperty $ do -#else -propertyIO action = morallyDubiousIOProperty $ do -#endif - (action >> return succeeded) `E.catch` + (action >> return succeeded) `E.catch` \ e -> + return failed {theException = Just (E.toException e), reason = formatAssertion e} + where + formatAssertion e = case e of #if MIN_VERSION_HUnit(1,3,0) - \(HUnitFailure _ err) -> + HUnitFailure _ err -> #else - \(HUnitFailure err) -> + HUnitFailure err -> #endif #if MIN_VERSION_HUnit(1,5,0) - return failed {reason = formatFailureReason err} + formatFailureReason err #else - return failed {reason = err} + err #endif