32 lines
656 B
Plaintext
32 lines
656 B
Plaintext
type foobar = {foo: int, bar: int };
|
|
|
|
let fb: foobar = {foo: 0, bar: 0 };
|
|
|
|
type abc = {a: int, b: int, c: int };
|
|
|
|
let abc: abc = {a: 42, b: 142, c: 242 };
|
|
|
|
let a: int = abc.a;
|
|
|
|
let b: int = abc.b;
|
|
|
|
let c: int = abc.c;
|
|
|
|
let projection = ((r: foobar)): int => r.foo + r.bar;
|
|
|
|
let modify =
|
|
((r: foobar)): foobar => {foo: 256, bar: r.bar };
|
|
|
|
let modify_abc = ((r: abc)): abc => {...r, b: 2048, c: 42};
|
|
|
|
type big_record = {a: int, b: int, c: int, d: int, e: int };
|
|
|
|
let br: big_record = {a: 23, b: 23, c: 23, d: 23, e: 23 };
|
|
|
|
type double_record = {inner: abc };
|
|
|
|
let modify_inner =
|
|
((r: double_record)): double_record =>
|
|
{...r,
|
|
inner.b: 2048};
|