git.iko.soy/rowtype-yoga/purescript-native
on 24fdff2 help sign in
rowtype-yoga/purescript-native/examples/passing/Objects.purs
35 lines 681 B history raw
1module Main where
3import Prelude hiding (append)
5test = \x -> x.foo + x.bar + 1.0
7append = \o -> { foo: o.foo, bar: 1.0 }
9apTest = append({foo : "Foo", baz: "Baz"})
11f = (\a -> a.b.c) { b: { c: 1.0, d: "Hello" }, e: "World" }
13g = (\a -> a.f { x: 1.0, y: "y" }) { f: \o -> o.x + 1.0 }
15typed :: { foo :: Number }
16typed = { foo: 0.0 }
18test2 = \x -> x."!@#"
20test3 = typed."foo"
22test4 = test2 weirdObj
23 where
24 weirdObj :: { "!@#" :: Number }
25 weirdObj = { "!@#": 1.0 }
27test5 = case { "***": 1.0 } of
28 { "***" = n } -> n
30test6 = case { "***": 1.0 } of
31 { "***": n } -> n
33test7 {a: snoog , b : blah } = blah
35main = Control.Monad.Eff.Console.log "Done"