unified top level type with expression type
This commit is contained in:
parent
62724964d7
commit
c3ea343d00
2 changed files with 23 additions and 32 deletions
10
test_program
10
test_program
|
|
@ -1,10 +1,2 @@
|
|||
data Maybe ('a) where {
|
||||
Nothing : Maybe ('a)
|
||||
Just : 'a -> Maybe ('a)
|
||||
};
|
||||
|
||||
id : 'a -> 'a ;
|
||||
id x = x ;
|
||||
|
||||
main : Maybe ('a -> 'a) ;
|
||||
main = Just id ;
|
||||
id = \x. x ;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue