diff options
| author | John Ericson <git@JohnEricson.me> | 2020-04-18 18:24:40 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-04-22 23:10:28 -0400 |
| commit | 72cb6bcc23d2540274aac7d1b80682ef092f1615 (patch) | |
| tree | 23573c21ceaf3e1b63f6211680461e6d4317d99a | |
| parent | cde23cd47170cc33845b6859a47dd06ee85094d8 (diff) | |
| download | haskell-72cb6bcc23d2540274aac7d1b80682ef092f1615.tar.gz | |
Generalize type of `matchCanFail`
| -rw-r--r-- | compiler/GHC/HsToCore/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/HsToCore/Utils.hs b/compiler/GHC/HsToCore/Utils.hs index 308f0a14f5..ade8f754a8 100644 --- a/compiler/GHC/HsToCore/Utils.hs +++ b/compiler/GHC/HsToCore/Utils.hs @@ -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 |