data-named 0.5.0 → 0.5.1

raw patch · 2 files changed

+24/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Data/Named/Tree.hs +23/−1
• data-named.cabal +1/−1

@@ -28,12 +28,15 @@ , onNode , onEither , onBoth+, groupForestLeaves+, groupTreeLeaves  , module Data.Tree ) where  import Prelude hiding (span)-import Data.List (sortBy)+import Data.List (sortBy, groupBy)+import Data.Either (rights) import Data.Ord (comparing) import Data.Ix (Ix, range) import Data.Tree@@ -79,6 +82,25 @@ mapTree :: (a -> b) -> Tree a -> Tree b mapTree = fmap {-# INLINE mapTree #-}++-- | Group leaves with respect to the given equality function.+groupForestLeaves :: (b -> b -> Bool) -> NeForest a b -> NeForest a [b]+groupForestLeaves f+    = concatMap joinLeaves+    . groupBy (both isLeaf)+    . map (groupTreeLeaves f)+  where+    joinLeaves [x]  = [x]+    joinLeaves xs =+        let ys = (concat . rights) (map rootLabel xs)+        in  [Node (Right ys') [] | ys' <- groupBy f ys]+    both g x y                  = g x && g y+    isLeaf (Node (Right _) [])  = True+    isLeaf _                    = False++-- | Group leaves with respect to the given equality function.+groupTreeLeaves :: (b -> b -> Bool) -> NeTree a b -> NeTree a [b]+groupTreeLeaves f (Node v xs) = Node (fmap (:[]) v) (groupForestLeaves f xs)  -- | Spanning of a tree. data Span w = Span

@@ -1,5 +1,5 @@ name:               data-named-version:            0.5.0+version:            0.5.1 synopsis:           Data types for named entities description:     The library provides data types which can be used to represent