primitive-sort 0.1.2.3 → 0.1.2.4

raw patch · 3 files changed

+13/−5 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• primitive-sort.cabal +6/−3
• test/Main.hs +3/−2

@@ -1,5 +1,9 @@ # Revision history for primitive-sort +## 0.1.2.4 -- 2024-02-07++* Restore import for `liftA2` that caused tests to fail for GHC 9.4.+ ## 0.1.2.3 -- 2024-02-06  * Restore support for GHC 9.2 and GHC 9.4, which had been broken by

@@ -1,6 +1,6 @@ cabal-version:   2.2 name:            primitive-sort-version:         0.1.2.3+version:         0.1.2.4 synopsis:        Sort primitive arrays description:   This library provides a stable sorting algorithm for primitive arrays.@@ -21,14 +21,17 @@   CHANGELOG.md   README.md +tested-with:     GHC ==9.4.8 || ==9.6.3 || ==9.8.1+ common build-settings   default-language: Haskell2010-  ghc-options:      -O2 -Wall -Wunused-packages+  ghc-options:      -Wall -Wunused-packages  library   import:          build-settings   hs-source-dirs:  src   exposed-modules: Data.Primitive.Sort+  ghc-options:     -O2   build-depends:     , base        >=0.4.16 && <5     , contiguous  >=0.6    && <0.7@@ -64,7 +67,7 @@     , primitive-sort     , random -  ghc-options:    -threaded -rtsopts -with-rtsopts=-N1+  ghc-options:    -O2 -threaded -rtsopts -with-rtsopts=-N1   hs-source-dirs: bench   main-is:        Main.hs 

@@ -24,6 +24,7 @@ import Data.Word import Type.Reflection (TypeRep, typeRep) +import qualified Control.Applicative as A import qualified Data.Map as M import qualified Data.Primitive as P import qualified Data.Primitive.Sort@@ -332,7 +333,7 @@             P.writeByteArray tags ix n             go as (ix + 1)     go vs 0-    liftA2 (,) (P.unsafeFreezeByteArray arr) (P.unsafeFreezeByteArray tags)+    A.liftA2 (,) (P.unsafeFreezeByteArray arr) (P.unsafeFreezeByteArray tags)  eqByteArray :: ByteArray -> ByteArray -> Bool eqByteArray paA paB =@@ -362,7 +363,7 @@   series = fmap tagFromTuple series  instance (Arbitrary a, Arbitrary b) => Arbitrary (Tag a b) where-  arbitrary = liftA2 Tag arbitrary arbitrary+  arbitrary = A.liftA2 Tag arbitrary arbitrary  tagFromTuple :: (a, b) -> Tag a b tagFromTuple (a, b) = Tag a b