unified top level type with expression type

This commit is contained in:
sebastianselander 2023-03-10 16:54:29 +01:00
parent 62724964d7
commit c3ea343d00
2 changed files with 23 additions and 32 deletions

View file

@ -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 ;