Commit 72cb6bcc authored by John Ericson's avatar John Ericson Committed by Marge Bot
Browse files

Generalize type of `matchCanFail`

parent cde23cd4
......@@ -197,7 +197,7 @@ shiftEqns = fmap $ \eqn -> eqn { eqn_pats = tail (eqn_pats eqn) }
-- Functions on MatchResults
matchCanFail :: MatchResult -> Bool
matchCanFail :: MatchResult' a -> Bool
matchCanFail (MR_Fallible {}) = True
matchCanFail (MR_Infallible {}) = False
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment