Unreachable branhces are removed, fixed a nasty bug in monomorphizer 😸

This commit is contained in:
Rakarake 2023-04-27 16:44:30 +02:00
parent 46a4d3d252
commit 3729278041
4 changed files with 68 additions and 16 deletions

View file

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