diff --git a/CHANGELOG.md b/CHANGELOG.md --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,6 +1,15 @@ Changelog ========= +Version 0.3.4.1 +---------- + +*August 22, 2020* + + + +* Add `Ord` instance to `NESeq`. (@mitchellwrosen) + Version 0.3.4.0 --------------- diff --git a/nonempty-containers.cabal b/nonempty-containers.cabal --- a/nonempty-containers.cabal +++ b/nonempty-containers.cabal @@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack -- --- hash: f7b111581e408abad55838cf6ef277f8e5f3fe117ec340c4ff529f0d7141da59 +-- hash: da5f8ed9003a7dab25c32dfaa59717a40a3575aeebb7ddaa8f6f97613d435220 name: nonempty-containers -version: 0.3.4.0 +version: 0.3.4.1 synopsis: Non-empty variants of containers data types, with full API description: Efficient and optimized non-empty versions of types from /containers/. Inspired by /non-empty-containers/ library, except attempting a more diff --git a/src/Data/Sequence/NonEmpty/Internal.hs b/src/Data/Sequence/NonEmpty/Internal.hs --- a/src/Data/Sequence/NonEmpty/Internal.hs +++ b/src/Data/Sequence/NonEmpty/Internal.hs @@ -161,6 +161,9 @@ xs == ys = length xs == length ys && toNonEmpty xs == toNonEmpty ys +instance Ord a => Ord (NESeq a) where + compare xs ys = compare (F.toList xs) (F.toList ys) + instance Show1 NESeq where liftShowsPrec sp sl d m = showsUnaryWith (liftShowsPrec sp sl) "fromList" d (toNonEmpty m)