primitive-extras 0.1.7 → 0.1.7.1

raw patch · 2 files changed

+8/−8 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• library/PrimitiveExtras/Fold.hs +7/−7
• primitive-extras.cabal +1/−1

@@ -12,22 +12,22 @@ import qualified PrimitiveExtras.UnliftedArray as UA  -unsafeDupableIO :: (state -> input -> IO state) -> IO state -> (state -> IO output) -> Fold input output-unsafeDupableIO stepInIO initInIO extractInIO =+unsafeIO :: (state -> input -> IO state) -> IO state -> (state -> IO output) -> Fold input output+unsafeIO stepInIO initInIO extractInIO =   Fold     (\ !state input -> unsafeDupablePerformIO (stepInIO state input))     (unsafeDupablePerformIO initInIO)-    (\ state -> let !output = unsafeDupablePerformIO (extractInIO state) in output)+    (\ state -> let !output = unsafePerformIO (extractInIO state) in output)  foldMInUnsafeDupableIO :: FoldM IO input output -> Fold input output-foldMInUnsafeDupableIO (FoldM step init extract) = unsafeDupableIO step init extract+foldMInUnsafeDupableIO (FoldM step init extract) = unsafeIO step init extract  {-| Given a size of the array, construct a fold, which produces an array of index counts. -} indexCounts :: (Integral count, Prim count) => Int {-^ Array size -} -> Fold Int (PrimArray count)-indexCounts size = unsafeDupableIO step init extract where+indexCounts size = unsafeIO step init extract where   init = unsafeThawPrimArray (replicatePrimArray size 0)   step mutable i = do     count <- readPrimArray mutable i@@ -41,7 +41,7 @@ -} unliftedArray :: PrimUnlifted element => Int {-^ Size of the array -} -> Fold (Int, element) (UnliftedArray element) unliftedArray size =-  unsafeDupableIO step init extract+  unsafeIO step init extract   where     step mutable (index, element) =       writeUnliftedArray mutable index element $> mutable@@ -59,7 +59,7 @@ -} primMultiArray :: forall size element. (Integral size, Prim size, Prim element) => PrimArray size -> Fold (Int, element) (PrimMultiArray element) primMultiArray sizeArray =-  unsafeDupableIO step init extract+  unsafeIO step init extract   where     outerLength = sizeofPrimArray sizeArray     init =

@@ -1,7 +1,7 @@ name:   primitive-extras version:-  0.1.7+  0.1.7.1 category:   Primitive synopsis: