Fixed larger bug
where pattern matching on `Just a` with type `Maybe b` could be used for any type.
This commit is contained in:
parent
509de4415e
commit
57fe8cd0a6
2 changed files with 14 additions and 24 deletions
|
|
@ -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
|
||||
};
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue