dlist-nonempty 0.1.2 → 0.1.3

raw patch · 3 files changed

+33/−12 lines, 3 filesdep +foldable1-classes-compatdep ~basedep ~deepseqdep ~semigroupoidsPVP ok

version bump matches the API change (PVP)

Dependencies added: foldable1-classes-compat

Dependency ranges changed: base, deepseq, semigroupoids

API changes (from Hackage documentation)

Files

• CHANGELOG.md +6/−0
• dlist-nonempty.cabal +8/−5
• src/Data/DList/NonEmpty/Internal.hs +19/−7

@@ -1,3 +1,9 @@+0.1.3+-----++- Use `foldable1-classes-compat` in additional to (old) `semigroupoids`+  as `Foldable1` provider.+ 0.1.2 ----- 

@@ -1,5 +1,5 @@ name:               dlist-nonempty-version:            0.1.2+version:            0.1.3 synopsis:           Non-empty difference lists description:   Difference lists are a list-like type supporting O(1) append. This is@@ -55,15 +55,18 @@   default-language: Haskell2010   hs-source-dirs:   src   build-depends:-      base     >=4.5 && <4.18+      base     >=4.5 && <4.19     , deepseq  >=1.3 && <1.5     , dlist    >=1.0 && <1.1 -  if flag(semigroupoids)-    build-depends: semigroupoids >=5.1 && <5.4-   if !impl(ghc >=8.0)     build-depends: semigroups >=0.18.2 && <0.21++  if !impl(ghc >=9.6)+    build-depends: foldable1-classes-compat >=0.1 && <0.2++  if flag(semigroupoids)+    build-depends: semigroupoids >=5.1 && <6.1    other-extensions: CPP   exposed-modules:

@@ -24,14 +24,18 @@ import qualified Data.List as List import qualified Data.List.NonEmpty as NE import qualified Data.Foldable as F+import qualified Data.Foldable1 as F1  #ifdef MIN_VERSION_semigroupoids import Data.Functor.Apply (Apply (..)) import Data.Functor.Bind (Bind (..)) import Data.Functor.Alt (Alt (..))-import qualified Data.Semigroup.Foldable as SF import qualified Data.Semigroup.Traversable as ST++#if !MIN_VERSION_semigroupoids(6,0,0)+import qualified Data.Semigroup.Foldable as SF #endif+#endif  #ifdef __GLASGOW_HASKELL__ @@ -259,6 +263,14 @@   {-# INLINE (<>) #-}  -------------------------------------------------------------------------------+-- foldable1+-------------------------------------------------------------------------------++instance F1.Foldable1 NonEmptyDList where+  foldMap1 f = F1.foldMap1 f . toNonEmpty+  toNonEmpty = toNonEmpty++------------------------------------------------------------------------------- -- semigroupoids ------------------------------------------------------------------------------- @@ -266,15 +278,15 @@ instance Apply NonEmptyDList where (<.>) = (<*>) instance Bind NonEmptyDList where (>>-) = (>>=) -instance SF.Foldable1 NonEmptyDList where-  foldMap1 f = SF.foldMap1 f . toNonEmpty-#if MIN_VERSION_semigroupoids(5,2,1)-  toNonEmpty = toNonEmpty-#endif- instance ST.Traversable1 NonEmptyDList where   traverse1 f = fmap fromNonEmpty . ST.traverse1 f . toNonEmpty   sequence1   = fmap fromNonEmpty . ST.sequence1 . toNonEmpty++#if !MIN_VERSION_semigroupoids(6,0,0)+instance SF.Foldable1 NonEmptyDList where+  foldMap1 = F1.foldMap1+  toNonEmpty = toNonEmpty+#endif  instance Alt NonEmptyDList where   (<!>) = append