Unreachable branhces are removed, fixed a nasty bug in monomorphizer 😸
This commit is contained in:
parent
46a4d3d252
commit
3729278041
4 changed files with 68 additions and 16 deletions
|
|
@ -5,6 +5,9 @@ data Either(a b) where
|
|||
unwrapLeft x = case x of
|
||||
Left y => y
|
||||
|
||||
unwrapRight x = case x of
|
||||
Right y => y
|
||||
|
||||
wow = Left 5
|
||||
|
||||
main = unwrapLeft wow
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue