[Haskell-cafe] runST $ unsafeIOToST $ ioWhatever

[Henning Thielemann]

On Sun, 14 Apr 2024, Folsk Pratima wrote:

> memSet :: Ptr a -> Word8 -> Word32 -> IO (Ptr a)
> memSet ptr _ 0 = return ptr
> memSet ptr byte size = do
>    let voidptr = castPtr ptr :: Ptr Word8
>        acts =
>            map
>                (\i -> pokeByteOff voidptr i byte)
>                [0 .. fromIntegral (size - 1)]
>    mapM_ id acts
>    return ptr

I think you just want
   pokeArray ptr $ replicate (fromIntegral size) byte