631f592c6ffe9315a0cbcad59177036c46723ce1844eb12128e172f46b85db62

Download raw

Created: 2023-12-19 03:40:10.302489 UTC

Size: 1105

Preview (limited to 512 bytes)

"{-# LANGUAGE BangPatterns #-}\n\nmodule Array.Traverse.Unsafe\n ( traversePoly\n , traverseMono\n ) where\n\nimport Control.Monad.ST\nimport Control.Monad.Trans.State.Strict\nimport Control.Monad.Primitive\nimport Data.Primitive.Array\n\n{-# INLINE traversePoly #-}\ntraversePoly\n :: PrimMonad m\n => (a -> m b)\n -> Array a\n -> m (Array b)\ntraversePoly f = \\ !ary ->\n let\n !sz = sizeofArray ary\n go !i !mary\n | i == sz\n = unsafeFreezeArray mary\n | otherwise\n = do\n a <- indexArrayM a"

Casa is a service provided by the Haskell Foundation │ Originally developed by FP Complete