64289a1 · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

Fix broken tests

commit64289a1e90e74198a313f90bac606c2f173873b8 authorPhil Freeman <paf31@cantab.net> dateThu 6 Feb 2014, 13:16 (13 years ago) parent9a5c707

2 files changed+5−5

unifiedsplit

examples/passing/Auto.purs+3−3

@@ -1,14 +1,14 @@

11module Auto where

3− data Auto s i o = Auto { state :: s, step :: s -> i -> o }

3+ data Auto s i o = MkAuto { state :: s, step :: s -> i -> o }

55 type SomeAuto i o = forall r. (forall s. Auto s i o -> r) -> r

77 exists :: forall s i o. s -> (s -> i -> o) -> SomeAuto i o

8− exists = \state step f -> f (Auto { state: state, step: step })

8+ exists = \state step f -> f (MkAuto { state: state, step: step })

1010 run :: forall i o. SomeAuto i o -> i -> o

11− run = \s i -> s (\a -> case a of Auto a -> a.step a.state i)

11+ run = \s i -> s (\a -> case a of MkAuto a -> a.step a.state i)

1212

1313module Main where

1414

examples/passing/Person.purs+2−2

@@ -2,13 +2,13 @@ module Person where

33 import Prelude ((++))

5− data Person = Person { name :: String, age :: Number }

5+ data Person = MkPerson { name :: String, age :: Number }

77 foreign import itoa :: Number -> String

99 showPerson :: Person -> String

1010 showPerson = \p -> case p of

11− Person o -> o.name ++ ", aged " ++ itoa(o.age)

11+ MkPerson o -> o.name ++ ", aged " ++ itoa(o.age)

1212

1313module Main where

1414