New morb tree for internal use in monomorphizer, data types implemented
This commit is contained in:
parent
9b38c6d804
commit
d097cd28e8
5 changed files with 334 additions and 25 deletions
13
sample-programs/mono-2.crf
Normal file
13
sample-programs/mono-2.crf
Normal file
|
|
@ -0,0 +1,13 @@
|
|||
data Either(a b) where {
|
||||
Left: a -> Either (a b)
|
||||
Right: b -> Either (a b)
|
||||
};
|
||||
|
||||
unwrapLeft x = case x of {
|
||||
Left y => y;
|
||||
};
|
||||
|
||||
wow = Left 5;
|
||||
|
||||
main = unwrapLeft wow;
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue