[Pkg-haskell-commits] darcs: haskell-exceptions: New upstream release

Joachim Breitner mail at joachim-breitner.de
Fri Apr 4 07:53:50 UTC 2014 

Fri Apr  4 07:39:08 UTC 2014  Joachim Breitner <mail at joachim-breitner.de>
  * New upstream release

    M ./changelog +6
    M ./control -1 +1
    R ./patches/missing-testsuite.diff
    R ./patches/newer-quickcheck.diff
    R ./patches/series
    R ./patches/
    M ./changelog -1 +1

Fri Apr  4 07:39:08 UTC 2014  Joachim Breitner <mail at joachim-breitner.de>
  * New upstream release
diff -rN -u old-haskell-exceptions/changelog new-haskell-exceptions/changelog
--- old-haskell-exceptions/changelog	2014-04-04 07:53:50.860658815 +0000
+++ new-haskell-exceptions/changelog	2014-04-04 07:53:50.868658812 +0000
@@ -1,3 +1,9 @@
+haskell-exceptions (0.5-1) UNRELEASED; urgency=medium
+
+  * New upstream release, drop patches.
+
+ -- Joachim Breitner <nomeata at debian.org>  Fri, 04 Apr 2014 09:33:47 +0200
+
 haskell-exceptions (0.3.2-1) unstable; urgency=low
 
   * Initial release.
diff -rN -u old-haskell-exceptions/control new-haskell-exceptions/control
--- old-haskell-exceptions/control	2014-04-04 07:53:50.860658815 +0000
+++ new-haskell-exceptions/control	2014-04-04 07:53:50.864658814 +0000
@@ -15,7 +15,7 @@
   , libghc-transformers-dev (<< 0.4)
   , libghc-transformers-prof
   , libghc-quickcheck2-dev (>= 2.5)
-  , libghc-quickcheck2-dev (<< 2.7)
+  , libghc-quickcheck2-dev (<< 2.8)
   , libghc-test-framework-dev (>= 0.8)
   , libghc-test-framework-dev (<< 0.9)
   , libghc-test-framework-quickcheck2-dev (>= 0.3)
diff -rN -u old-haskell-exceptions/patches/missing-testsuite.diff new-haskell-exceptions/patches/missing-testsuite.diff
--- old-haskell-exceptions/patches/missing-testsuite.diff	2014-04-04 07:53:50.860658815 +0000
+++ new-haskell-exceptions/patches/missing-testsuite.diff	1970-01-01 00:00:00.000000000 +0000
@@ -1,95 +0,0 @@
---- /dev/null
-+++ b/tests/Control/Monad/Catch/Tests.hs
-@@ -0,0 +1,92 @@
-+{-# LANGUAGE DeriveDataTypeable #-}
-+{-# LANGUAGE ScopedTypeVariables #-}
-+{-# LANGUAGE ExistentialQuantification #-}
-+{-# LANGUAGE NamedFieldPuns #-}
-+{-# LANGUAGE CPP #-}
-+
-+module Control.Monad.Catch.Tests (tests) where
-+
-+#if defined(__GLASGOW_HASKELL__) && (__GLASGOW_HASKELL__ < 706)
-+import Prelude hiding (catch)
-+#endif
-+
-+import Control.Applicative ((<*>))
-+import Data.Data (Data, Typeable)
-+
-+import Control.Monad.Trans.Identity (IdentityT(..))
-+import Control.Monad.Reader (ReaderT(..))
-+import Test.Framework (Test, testGroup)
-+import Test.Framework.Providers.QuickCheck2 (testProperty)
-+import Test.QuickCheck (Property, once)
-+import Test.QuickCheck.Monadic (monadic, run, assert)
-+import Test.QuickCheck.Property (morallyDubiousIOProperty)
-+import qualified Control.Monad.State.Lazy as LazyState
-+import qualified Control.Monad.State.Strict as StrictState
-+import qualified Control.Monad.Writer.Lazy as LazyWriter
-+import qualified Control.Monad.Writer.Strict as StrictWriter
-+import qualified Control.Monad.RWS.Lazy as LazyRWS
-+import qualified Control.Monad.RWS.Strict as StrictRWS
-+
-+import Control.Monad.Catch
-+import Control.Monad.Catch.Pure
-+
-+data TestException = TestException String
-+    deriving (Show, Eq, Data, Typeable)
-+
-+instance Exception TestException
-+
-+data MSpec = forall m. (MonadCatch m) => MSpec
-+    { mspecName :: String
-+    , mspecRunner :: (m Property -> Property)
-+    }
-+
-+testMonadCatch :: MSpec -> Property
-+testMonadCatch MSpec { mspecRunner } = monadic mspecRunner $
-+    run $ catch failure handler
-+  where
-+    failure = throwM (TestException "foo") >> error "testMonadCatch"
-+    handler (_ :: TestException) = return ()
-+
-+testCatchJust :: MSpec -> Property
-+testCatchJust MSpec { mspecRunner } = monadic mspecRunner $ do
-+    nice <- run $ catchJust testException posFailure posHandler
-+    assert $ nice == ("pos", True)
-+    bad <- run $ catch (catchJust testException negFailure posHandler) negHandler
-+    assert $ bad == ("neg", True)
-+  where
-+    testException (TestException s) = if s == "pos" then Just True else Nothing
-+    posHandler x = return ("pos", x)
-+    negHandler (_ :: TestException) = return ("neg", True)
-+    posFailure = throwM (TestException "pos") >> error "testCatchJust pos"
-+    negFailure = throwM (TestException "neg") >> error "testCatchJust neg"
-+
-+tests :: Test
-+tests = testGroup "Control.Monad.Catch.Tests" $
-+    [ mkMonadCatch
-+    , mkCatchJust
-+    ] <*> mspecs
-+  where
-+    mspecs =
-+        [ MSpec "IO" io
-+        , MSpec "IdentityT IO" $ io . runIdentityT
-+        , MSpec "LazyState.StateT IO" $ io . flip LazyState.evalStateT ()
-+        , MSpec "StrictState.StateT IO" $ io . flip StrictState.evalStateT ()
-+        , MSpec "ReaderT IO" $ io . flip runReaderT ()
-+        , MSpec "LazyWriter.WriterT IO" $ io . fmap tfst . LazyWriter.runWriterT
-+        , MSpec "StrictWriter.WriterT IO" $ io . fmap tfst . StrictWriter.runWriterT
-+        , MSpec "LazyRWS.RWST IO" $ \m -> io $ fmap tfst $ LazyRWS.evalRWST m () ()
-+        , MSpec "StrictRWS.RWST IO" $ \m -> io $ fmap tfst $ StrictRWS.evalRWST m () ()
-+
-+        , MSpec "CatchT Indentity" $ fromRight . runCatch
-+        ]
-+
-+    tfst :: (Property, ()) -> Property = fst
-+    fromRight (Left _) = error "fromRight"
-+    fromRight (Right a) = a
-+    io = morallyDubiousIOProperty
-+
-+    mkMonadCatch = mkTestType "MonadCatch" testMonadCatch
-+    mkCatchJust = mkTestType "catchJust" testCatchJust
-+
-+    mkTestType name test = \spec ->
-+        testProperty (name ++ " " ++ mspecName spec) $ once $ test spec
diff -rN -u old-haskell-exceptions/patches/newer-quickcheck.diff new-haskell-exceptions/patches/newer-quickcheck.diff
--- old-haskell-exceptions/patches/newer-quickcheck.diff	2014-04-04 07:53:50.856658817 +0000
+++ new-haskell-exceptions/patches/newer-quickcheck.diff	1970-01-01 00:00:00.000000000 +0000
@@ -1,8 +0,0 @@
---- a/exceptions.cabal
-+++ b/exceptions.cabal
-@@ -56,4 +56,4 @@
- 
-     test-framework             >= 0.8      && < 0.9,
-     test-framework-quickcheck2 >= 0.3      && < 0.4,
--    QuickCheck                 >= 2.5      && < 2.6
-+    QuickCheck                 >= 2.5      && < 2.7
diff -rN -u old-haskell-exceptions/patches/series new-haskell-exceptions/patches/series
--- old-haskell-exceptions/patches/series	2014-04-04 07:53:50.856658817 +0000
+++ new-haskell-exceptions/patches/series	1970-01-01 00:00:00.000000000 +0000
@@ -1,2 +0,0 @@
-newer-quickcheck.diff
-missing-testsuite.diff

More information about the Pkg-haskell-commits mailing list