Fix lambda lifter

This commit is contained in:
Martin Fredin 2023-03-28 14:36:43 +02:00
parent 528369c95c
commit 133cc31e77
3 changed files with 42 additions and 48 deletions

View file

@ -3,8 +3,8 @@ data Bool () where {
False : Bool ()
};
main : Bool () -> Int ;
main : Bool () -> a -> Int ;
main b = case b of {
False => 0;
True => 0
}
False => (\x. 1);
True => \x. 0;
};