git.iko.soy/rowtype-yoga/purescript-native
on cd4c708 help sign in
rowtype-yoga/purescript-native/examples/passing/CaseStatement.purs
22 lines 279 B history raw
1module Main where
3import Prelude
4import Control.Monad.Eff.Console (log)
6data A = A | B | C
8f a _ A = a
9f _ a B = a
10f _ _ C = "Done"
12g a _ A = a
13g _ b B = b
14g _ _ C = C
16data M a = N | J a
18h f N a = a
19h f a N = a
20h f (J a) (J b) = J (f a b)
22main = log $ f "Done" "Failed" A