diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2017-02-04 15:15:06 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-02-04 16:16:50 -0500 |
| commit | 68cbe52fd3ae618a9778e79bf6a9806bab21aff2 (patch) | |
| tree | 9c59a4d48586230a555a9e3e2f46799d04577201 | |
| parent | 29122312cc7b8f9890eb53f92d76ecdd8ded24ee (diff) | |
| download | haskell-68cbe52fd3ae618a9778e79bf6a9806bab21aff2.tar.gz | |
Don't panic when printing match with RecUpd context
Reviewers: bgamari, austin
Reviewed By: bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D3065
GHC Trac Issues: #12957
| -rw-r--r-- | compiler/hsSyn/HsExpr.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsExpr.hs b/compiler/hsSyn/HsExpr.hs index 617972decd..750018914a 100644 --- a/compiler/hsSyn/HsExpr.hs +++ b/compiler/hsSyn/HsExpr.hs @@ -2403,7 +2403,8 @@ matchSeparator LambdaExpr = text "->" matchSeparator ProcExpr = text "->" matchSeparator PatBindRhs = text "=" matchSeparator (StmtCtxt _) = text "<-" -matchSeparator RecUpd = panic "unused" +matchSeparator RecUpd = text "=" -- This can be printed by the pattern + -- match checker trace matchSeparator ThPatSplice = panic "unused" matchSeparator ThPatQuote = panic "unused" matchSeparator PatSyn = panic "unused" |