git.iko.soy/rowtype-yoga/purescript-backend-optimizer
on main help sign in
rowtype-yoga/purescript-backend-optimizer/backend-es/test-snapshots/src/Snapshot.EffectLoopCaseRegression.purs
17 lines 347 B history raw
1module Snapshot.EffectLoopCaseRegression where
3import Prelude
5import Data.Maybe (Maybe(..))
6import Effect (Effect, foreachE)
7import Effect.Console as Console
9test :: Effect (Maybe (Array String)) -> Effect Unit
10test eff = do
11 res <- eff
12 case res of
13 Nothing ->
14 pure unit
15 Just as ->
16 foreachE as \a ->
17 Console.log a