Fixed larger bug

where pattern matching on `Just a` with type `Maybe b` could be used for
 any type.
This commit is contained in:
sebastian 2023-03-21 22:02:28 +01:00
parent 509de4415e
commit 57fe8cd0a6
2 changed files with 14 additions and 24 deletions

View file

@ -15,10 +15,9 @@ data Maybe ('a) where {
-- False => Just True
-- };
fun : Maybe (_Int) -> _Int ;
fun : Maybe ('a) -> 'a ;
fun a =
case a of {
Just b => b;
Nothing => 0
Just c => c
};