48dca9961ee619b32a6c5ae9d841637a77f7c45cf766e6423f6deeefdc0002cf

Download raw

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

Size: 695

Preview (limited to 512 bytes)

"module PrimArray.Traverse\n ( benchmarkApplicative\n , benchmarkPrimMonad\n , argument\n ) where\n\nimport Control.Monad.ST (runST)\nimport Control.Monad.Trans.Maybe (MaybeT(..))\nimport Data.Bool (bool)\nimport Data.Primitive.PrimArray\nimport GHC.Exts (fromList)\n\nbenchmarkApplicative :: PrimArray Int -> Maybe (PrimArray Int)\nbenchmarkApplicative xs = traversePrimArray (\\x -> bool Nothing (Just (x + 1)) (x > 0)) xs\n\nbenchmarkPrimMonad :: PrimArray Int -> Maybe (PrimArray Int)\nbenchmarkPrimMonad xs = runST $ runM"

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