git.iko.soy/rowtype-yoga/purescript-backend-optimizer
on main help sign in
rowtype-yoga/purescript-backend-optimizer/backend-es/test-snapshots/src/Snapshot.STArray05.purs
16 lines 395 B history raw
1module Snapshot.STArray05 (test) where
3import Prelude
5import Control.Monad.ST (ST)
6import Data.Array.ST (STArray)
7import Data.Array.ST as STArray
9f :: forall h. (STArray h Int -> ST h Int) -> ST h (STArray h Int)
10f eff = do
11 arr <- STArray.new
12 _ <- eff arr
13 pure arr
15test :: Boolean -> Array Int
16test x = STArray.run (f (if x then \a -> STArray.push 1 a else \a -> STArray.unshift 2 a))