dlist-nonempty 0.1 → 0.1.1

raw patch · 3 files changed

+16/−9 lines, 3 filesdep ~QuickCheckdep ~basedep ~base-compatPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: QuickCheck, base, base-compat, criterion, dlist, semigroupoids, semigroups

API changes (from Hackage documentation)

Files

CHANGELOG.md +4/−0
dlist-nonempty.cabal +2/−2
src/Data/DList/NonEmpty/Internal.hs +10/−7

+ CHANGELOG.md view

@@ -0,0 +1,4 @@+0.1.1+-----++- Support `semigroupoids-5.2.1`

dlist-nonempty.cabal view

@@ -1,5 +1,5 @@ name:                   dlist-nonempty-version:                0.1+version:                0.1.1 synopsis:               Non-empty difference lists description:   Difference lists are a list-like type supporting O(1) append. This is@@ -18,7 +18,7 @@ copyright:              2006-2009 Don Stewart, 2013-2016 Sean Leather, 2017 Oleg Grenrus homepage:               https://github.com/phadej/dlist-nonempty bug-reports:            https://github.com/phadej/dlist-nonempty/issues-extra-source-files:     README.md+extra-source-files:     README.md CHANGELOG.md build-type:             Simple cabal-version:          >=1.10 tested-with:

src/Data/DList/NonEmpty/Internal.hs view

@@ -27,8 +27,8 @@ import Data.Functor.Apply (Apply (..)) import Data.Functor.Bind (Bind (..)) import Data.Functor.Alt (Alt (..))-import Data.Semigroup.Foldable (Foldable1 (..))-import Data.Semigroup.Traversable (Traversable1 (..))+import qualified Data.Semigroup.Foldable as SF+import qualified Data.Semigroup.Traversable as ST  #ifdef __GLASGOW_HASKELL__ @@ -257,12 +257,15 @@ instance Apply NonEmptyDList where (<.>) = (<*>) instance Bind NonEmptyDList where (>>-) = (>>=) -instance Foldable1 NonEmptyDList where-  foldMap1 f = foldMap1 f . toNonEmpty+instance SF.Foldable1 NonEmptyDList where+  foldMap1 f = SF.foldMap1 f . toNonEmpty+#if MIN_VERSION_semigroupoids(5,2,1)+  toNonEmpty = toNonEmpty+#endif -instance Traversable1 NonEmptyDList where-  traverse1 f = fmap fromNonEmpty . traverse1 f . toNonEmpty-  sequence1   = fmap fromNonEmpty . sequence1 . toNonEmpty+instance ST.Traversable1 NonEmptyDList where+  traverse1 f = fmap fromNonEmpty . ST.traverse1 f . toNonEmpty+  sequence1   = fmap fromNonEmpty . ST.sequence1 . toNonEmpty  instance Alt NonEmptyDList where   (<!>) = append