alist 0.1.1.6 → 0.1.1.7

raw patch · 3 files changed

+9/−7 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Data.AList: fold :: () => (t -> t -> t) -> t -> AList t -> t

- Data.AList: sum :: AList Integer -> Integer

+ Data.AList: instance Data.Foldable.Foldable Data.AList.AList

+ Data.AList.NonEmpty: instance Data.Foldable.Foldable Data.AList.NonEmpty.AListNonEmpty

Files

Data/AList.hs +4/−6
Data/AList/NonEmpty.hs +4/−0
alist.cabal +1/−1

Data/AList.hs view

@@ -11,15 +11,13 @@ singleton x = AListTip x append = AListAppend  -{-# INLINABLE fold #-}-fold f base (AListAppend a b) = f (fold f base a) (fold f base b)-fold f base (AListTip x) = x-fold f base AListEmpty = base+instance Foldable AList where+   foldMap f AListEmpty = mempty+   foldMap f (AListTip a) = f a+   foldMap f (AListAppend a b) = foldMap f a `mappend` foldMap f b  cons x alist = singleton x `append` alist  snoc alist x = alist `append` singleton x--sum = fold (+) 0  drawAList x = '[' : drawAList' x ++ "]" drawAList' AListEmpty = ""

Data/AList/NonEmpty.hs view

@@ -6,6 +6,10 @@                      | AListNonEmptySingle a   deriving (Read,Show) +instance Foldable AListNonEmpty where+   foldMap f (AListNonEmptySingle a) = f a+   foldMap f (AListNonEmptyAppend a b) = foldMap f a `mappend` foldMap f b+ append = AListNonEmptyAppend  instance Semigroup (AListNonEmpty a) where

alist.cabal view

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             0.1.1.6+version:             0.1.1.7  -- A short (one-line) description of the package. synopsis:            lists with O(1) append