Fix lambda lifter
This commit is contained in:
parent
df1a5de04a
commit
619242ccaf
6 changed files with 280 additions and 182 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue