Re: [Haskell-cafe] runST $ unsafeIOToST $ ioWhatever

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