Fix lambda lifter

This commit is contained in:
Martin Fredin 2023-04-29 15:52:37 +02:00
parent df1a5de04a
commit 619242ccaf
6 changed files with 280 additions and 182 deletions

View file

@ -1,11 +1,9 @@
data Maybe () where {
data Maybe () where
Just : Int -> Maybe ()
Nothing : Maybe ()
};
demoFunc x = case x of {
Just x => x + 24;
Nothing => 0;
};
demoFunc x = case x of
Just x => x + 24
Nothing => 0
main = demoFunc Nothing ;
main = demoFunc Nothing