primitive-extras 0.1.6 → 0.1.7

raw patch · 2 files changed

+8/−1 lines, 2 files

Files

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

@@ -9,3 +9,10 @@ {-| Get length of the outer dimension of a primitive multi array -} primMultiArrayOuterLength :: PrimMultiArray a -> Int primMultiArrayOuterLength (PrimMultiArray outerDimension) = sizeofUnliftedArray outerDimension++oneHotPrimArray :: Prim a => Int {-^ Size -} -> Int {-^ Index -} -> a -> PrimArray a+oneHotPrimArray size index value =+  runST $ do+    marr <- newPrimArray size+    writePrimArray marr index value+    unsafeFreezePrimArray marr

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