git.iko.soy/rowtype-yoga/purescript-native
on b4e5bf2 help sign in
rowtype-yoga/purescript-native/examples/passing/MutRec2.purs
19 lines 234 B history raw
1module Main where
3import Prelude
5data A = A B
7data B = B A
9foreign import data S :: *
11f :: A -> S
12f a = case a of A b -> g b
14g b = case b of B a -> f a
16showN :: A -> S
17showN a = f a
19main = Control.Monad.Eff.Console.log "Done"