1
1
mirror of https://github.com/anoma/juvix.git synced 2024-11-30 14:13:27 +03:00
juvix/tests/positive/Puns.juvix

26 lines
313 B
Plaintext
Raw Normal View History

module Puns;
type A := a;
type B := b;
type S :=
mkS@{
fieldA : A;
fieldB : B;
fieldC : A;
fieldD : B;
fieldE : B;
};
f (fieldA : A) (fieldB : B) : S :=
let
fieldD := b;
in mkS@{
fieldC := fieldA;
fieldA;
fieldB;
fieldE := b;
fieldD;
};