9fd25f2c7f0a8de156dd2d967338723925b77d2662653531ca88d3f75e1f3dec

Download raw

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

Size: 1317

Preview (limited to 512 bytes)

"{-# LANGUAGE BangPatterns #-}\n{-# LANGUAGE UnboxedTuples #-}\n{-# LANGUAGE RankNTypes #-}\n{-# LANGUAGE MagicHash #-}\n\nmodule Array.Traverse.Closure\n ( traversePoly\n ) where\n\nimport Control.Applicative\nimport Control.Monad.ST\nimport Data.Primitive.Array\nimport GHC.Exts (Int(..),MutableArray#)\n\n{-# INLINE traversePoly #-}\ntraversePoly\n :: Applicative f\n => (a -> f b)\n -> Array a\n -> f (Array b)\ntraversePoly f = \\ !ary ->\n let\n !len = sizeofArray ary\n go !i\n | i == len = pure $ STA $ \\mary -> "

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