git.iko.soy/rowtype-yoga/purescript-backend-optimizer
on main help sign in
rowtype-yoga/purescript-backend-optimizer/backend-es/test-snapshots/src/Snapshot.EffectBind07.purs
22 lines 376 B history raw
1module Snapshot.EffectBind07 where
3import Prelude
5import Effect (Effect)
7test :: Effect Int -> (Unit -> Int) -> Effect Int
8test random value = do
9 x <- random
10 n <- do
11 let
12 a = do
13 let
14 b = do
15 let c = value unit
16 c + c
17 b + b
18 x <- random
19 y <- random
20 pure $ x + y + a + a
21 m <- random
22 pure (x + n - m)