@@ -8,7 +8,24 @@ mkRecord = { foo: _, bar: _, baz: "baz" }
88getValue :: forall e. Eff (| e) Boolean
99getValue = return true
1010
11+foreign import eqeqeq
12+ """
13+ function eqeqeq(x) {
14+ return function (y) {
15+ if (x == y) return x;
16+ throw new Error("Unexpected result: " + x + " /== " + y);
17+ };
18+ };
19+ """ :: forall a. a -> a -> a
20+
21+(===) = eqeqeq
22+infixl 4 ===
23+
1124main = do
1225 obj <- { value: _ } <$> getValue
1326 print obj.value
27+ let x = 1
28+ point <- { x: _, y: x } <$> return 2
29+ print $ point.x === 1
30+ print $ point.y === 2
1431 trace (mkRecord 1 "Done!").bar