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
+Copyright (c) 2013-2017 Simon Hengel
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
maintainer: Simon Hengel
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
