Monomorphizer now monomorphizes data
This commit is contained in:
parent
5e5d258bb1
commit
c6e0e40ef1
2 changed files with 86 additions and 43 deletions
|
|
@ -1,13 +1,11 @@
|
|||
data Either(a b) where {
|
||||
data Either(a b) where
|
||||
Left: a -> Either (a b)
|
||||
Right: b -> Either (a b)
|
||||
};
|
||||
|
||||
unwrapLeft x = case x of {
|
||||
Left y => y;
|
||||
};
|
||||
unwrapLeft x = case x of
|
||||
Left y => y
|
||||
|
||||
wow = Left 5;
|
||||
wow = Left 5
|
||||
|
||||
main = unwrapLeft wow;
|
||||
main = unwrapLeft wow
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue