hierarchy 0.3.0 → 0.3.1

raw patch · 3 files changed

+18/−10 lines, 3 filesdep ~semigroupsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: semigroups

API changes (from Hackage documentation)

Files

• Control/Cond.hs +8/−0
• hierarchy.cabal +1/−1
• test/Main.hs +9/−9

@@ -181,8 +181,10 @@             (v, Continue) -> return (v, Recurse (n >>= k))             x@_ -> return x     {-# INLINEABLE (>>=) #-}+#if __GLASGOW_HASKELL__ >= 710     {-# SPECIALIZE (>>=)           :: CondT e IO a -> (a -> CondT e IO b) -> CondT e IO b #-}+#endif  instance MonadReader r m => MonadReader r (CondT a m) where     ask = lift R.ask@@ -219,7 +221,9 @@             x@(Just _, _) -> return x             _ -> g     {-# INLINEABLE (<|>) #-}+#if __GLASGOW_HASKELL__ >= 710     {-# SPECIALIZE (<|>) :: CondT a IO a -> CondT a IO a -> CondT a IO a #-}+#endif  instance Monad m => MonadPlus (CondT a m) where     mzero = CondT $ return recurse'@@ -230,7 +234,9 @@             x@(Just _, _) -> return x             _ -> g     {-# INLINEABLE mplus #-}+#if __GLASGOW_HASKELL__ >= 710     {-# SPECIALIZE mplus :: CondT a IO a -> CondT a IO a -> CondT a IO a #-}+#endif  instance MonadError e m => MonadError e (CondT a m) where     throwError = CondT . throwError@@ -325,8 +331,10 @@     recursorToMaybe p Continue    = Just p     recursorToMaybe _ (Recurse n) = Just n {-# INLINEABLE runCondT #-}+#if __GLASGOW_HASKELL__ >= 710 {-# SPECIALIZE runCondT       :: a -> CondT a IO r -> IO ((Maybe r, Maybe (CondT a IO r)), a) #-}+#endif  runCond :: a -> Cond a r -> Maybe r runCond = ((fst . fst . runIdentity) .) . runCondT

@@ -1,5 +1,5 @@ name:          hierarchy-version:       0.3.0+version:       0.3.1 synopsis:      Pipes-based library for predicated traversal of generated trees description:   Pipes-based library for predicated traversal of generated trees homepage:      https://github.com/jwiegley/hierarchy

@@ -1,15 +1,15 @@ module Main where -import Control.Cond-import Control.Monad-import Data.List-import Pipes-import Pipes.Prelude (toListM)-import Pipes.Tree+-- import Control.Cond+-- import Control.Monad+-- import Data.List+-- import Pipes+-- import Pipes.Prelude (toListM)+-- import Pipes.Tree import Test.Hspec-import Test.Hspec.Expectations+-- import Test.Hspec.Expectations  main :: IO ()-main = hspec $ do-    describe "Sanity tests" $ do+main = hspec $+    describe "Sanity tests" $         it "No tests yet" $ True `shouldBe` True