Fix lambda lifter
This commit is contained in:
parent
528369c95c
commit
133cc31e77
3 changed files with 42 additions and 48 deletions
|
|
@ -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;
|
||||
};
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue