diff options
author | root <root@rshg054.dnsready.net> | 2012-09-13 00:04:38 +0000 |
---|---|---|
committer | root <root@rshg054.dnsready.net> | 2012-09-13 00:04:38 +0000 |
commit | 843685ce9dd76d37a4c7b0230eacb6d26bdf30dd (patch) | |
tree | 9151f782b8f347cf28e0f398341441d659f41f4a /community-staging/haskell-quickcheck/0001-update-code-to-support-extensible-exceptions-no-long.patch | |
parent | 21c375ba65c4730e25cd0b135aff7811bf28c77a (diff) |
Thu Sep 13 00:04:37 UTC 2012
Diffstat (limited to 'community-staging/haskell-quickcheck/0001-update-code-to-support-extensible-exceptions-no-long.patch')
-rw-r--r-- | community-staging/haskell-quickcheck/0001-update-code-to-support-extensible-exceptions-no-long.patch | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/community-staging/haskell-quickcheck/0001-update-code-to-support-extensible-exceptions-no-long.patch b/community-staging/haskell-quickcheck/0001-update-code-to-support-extensible-exceptions-no-long.patch new file mode 100644 index 000000000..a25506e67 --- /dev/null +++ b/community-staging/haskell-quickcheck/0001-update-code-to-support-extensible-exceptions-no-long.patch @@ -0,0 +1,50 @@ +From 554b8dc1439b4dbb5bc9a853fc27efe7b1e111de Mon Sep 17 00:00:00 2001 +From: Thomas Dziedzic <gostrc@gmail.com> +Date: Tue, 11 Sep 2012 03:59:50 -0700 +Subject: [PATCH] update code to support extensible exceptions no longer being + a part of ghc >= 7.6.1 + +--- + QuickCheck.cabal | 6 +++++- + Test/QuickCheck/Exception.hs | 6 ++++++ + 2 files changed, 11 insertions(+), 1 deletion(-) + +diff --git a/QuickCheck.cabal b/QuickCheck.cabal +index 1a9126e..5afd6fb 100644 +--- a/QuickCheck.cabal ++++ b/QuickCheck.cabal +@@ -60,9 +60,13 @@ library + Build-depends: ghc + + -- We want to use extensible-exceptions even if linking against base-3. +- if impl(ghc >= 6.9) ++ if impl(ghc >= 6.9) && impl(ghc < 7.6) + Build-depends: extensible-exceptions + ++ -- GHC >= 7.6.1 no longer provides extensible exceptions ++ if impl(ghc >= 7.6) ++ cpp-options: -DNEW_EXCEPTIONS ++ + -- Modules that are always built. + Exposed-Modules: + Test.QuickCheck, +diff --git a/Test/QuickCheck/Exception.hs b/Test/QuickCheck/Exception.hs +index f895351..d463195 100644 +--- a/Test/QuickCheck/Exception.hs ++++ b/Test/QuickCheck/Exception.hs +@@ -18,6 +18,12 @@ module Test.QuickCheck.Exception where + + #if defined(OLD_EXCEPTIONS) + import Control.Exception(evaluate, try, Exception(..), throw) ++#elif defined(NEW_EXCEPTIONS) ++import Control.Exception(evaluate, try, SomeException(SomeException), ErrorCall(..), throw ++#if defined(GHC_INTERRUPT) ++ , AsyncException(UserInterrupt) ++#endif ++ ) + #else + import Control.Exception.Extensible(evaluate, try, SomeException(SomeException), ErrorCall(..), throw + #if defined(GHC_INTERRUPT) +-- +1.7.12 + |