testpack 1.0.1 → 1.0.2

raw patch · 2 files changed

+7/−2 lines, 2 files

Files

• src/Test/HUnit/Tools.hs +5/−0
• testpack.cabal +2/−2

@@ -25,7 +25,12 @@ import Text.Printf  {- | Asserts that a specific exception is raised by a given action. -}+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ >= 610+assertRaises :: (Show a, Control.Exception.Exception e, Show e, Eq e) =>+                String -> e -> IO a -> IO ()+#else assertRaises :: Show a => String -> Control.Exception.Exception -> IO a -> IO ()+#endif assertRaises msg selector action =     let thetest e = if e == selector then return ()                     else assertFailure $ msg ++ "\nReceived unexpected exception: "

@@ -1,5 +1,5 @@ Name: testpack-Version: 1.0.1+Version: 1.0.2 License: LGPL Maintainer: John Goerzen <jgoerzen@complete.org> Author: John Goerzen@@ -30,7 +30,7 @@   Test.QuickCheck.Tools,   Test.QuickCheck.Instances - Extensions: ExistentialQuantification+ Extensions: ExistentialQuantification, CPP   -- Hack for cabal-install weirdness.  cabal-install forces base 3,  -- though it works fine for Setup.lhs manually.  Fix.