git.iko.soy/rowtype-yoga/purescript-native
on cd4c708 help sign in
rowtype-yoga/purescript-native/examples/passing/Objects.purs
36 lines 694 B history raw
1module Main where
3import Prelude hiding (append)
4import Control.Monad.Eff.Console (log)
6test = \x -> x.foo + x.bar + 1.0
8append = \o -> { foo: o.foo, bar: 1.0 }
10apTest = append({foo : "Foo", baz: "Baz"})
12f = (\a -> a.b.c) { b: { c: 1.0, d: "Hello" }, e: "World" }
14g = (\a -> a.f { x: 1.0, y: "y" }) { f: \o -> o.x + 1.0 }
16typed :: { foo :: Number }
17typed = { foo: 0.0 }
19test2 = \x -> x."!@#"
21test3 = typed."foo"
23test4 = test2 weirdObj
24 where
25 weirdObj :: { "!@#" :: Number }
26 weirdObj = { "!@#": 1.0 }
28test5 = case { "***": 1.0 } of
29 { "***" = n } -> n
31test6 = case { "***": 1.0 } of
32 { "***": n } -> n
34test7 {a: snoog , b : blah } = blah
36main = log "Done"