Files
gf-core/testsuite/compiler/compute/record.gf
2021-09-24 15:41:05 +02:00

13 lines
261 B
Plaintext

resource record = {
param P = A;
oper
hello = id "hello";
-- Id should be an identity function for Str
--id : Str -> Str = \ s -> s ;
id : Str -> Str = \ s -> ({a=s}**f r).a;
f : { b:Str } -> { b:Str } = \ x -> x;
r : { a:P; b:Str} = {a=A;b="b"};
}