Add signature of inferred bind to allow some mutually defined definitions

This commit is contained in:
Martin Fredin 2023-03-30 12:35:47 +02:00
parent a37a52d9f8
commit bbe0d77a19
4 changed files with 111 additions and 28 deletions

View file

@ -1,9 +1,9 @@
data True() where {
True: True()
data Bool () where {
True : Bool ()
False : Bool ()
};
toBool = case 0 of {
0 => False;
_ => True;
};
main: Int;
main =
case True of {
True => 1;
_ => 0;
};