git.iko.soy/rowtype-yoga/purescript-native
on cd4c708 help sign in
rowtype-yoga/purescript-native/examples/passing/DeepCase.purs
15 lines 216 B history raw
1module Main where
3import Prelude
4import Control.Monad.Eff.Console (log, logShow)
6f x y =
7 let
8 g = case y of
9 0.0 -> x
10 x -> 1.0 + x * x
11 in g + x + y
13main = do
14 logShow $ f 1.0 10.0
15 log "Done"