primitive-extras-0.10.1.8: library/PrimitiveExtras/UnliftedArray.hs

module PrimitiveExtras.UnliftedArray where

import PrimitiveExtras.Prelude

{-# INLINE at #-}
at :: (PrimUnlifted element) => UnliftedArray element -> Int -> forall result. result -> (element -> result) -> result
at ua index none some =
  if sizeofUnliftedArray ua <= index
    then none
    else some (indexUnliftedArray ua index)

{-# INLINEABLE replicateIO #-}
replicateIO :: (PrimUnlifted a) => Int -> IO a -> IO (UnliftedArray a)
replicateIO size elementIO =
  do
    array <- unsafeNewUnliftedArray size
    let loop index =
          if index < size
            then do
              element <- elementIO
              writeUnliftedArray array index element
              loop (succ index)
            else unsafeFreezeUnliftedArray array
     in loop 0

{-# INLINEABLE generate #-}
generate :: (PrimUnlifted a) => Int -> (Int -> IO a) -> IO (UnliftedArray a)
generate size elementIO =
  do
    array <- unsafeNewUnliftedArray size
    let loop index =
          if index < size
            then do
              element <- elementIO index
              writeUnliftedArray array index element
              loop (succ index)
            else unsafeFreezeUnliftedArray array
     in loop 0

traverse_ :: (Monad m, PrimUnlifted a) => (a -> m ()) -> UnliftedArray a -> m ()
traverse_ action array =
  let size = sizeofUnliftedArray array
      iterate index =
        if index < size
          then do
            action (indexUnliftedArray array index)
            iterate (succ index)
          else return ()
   in iterate 0