diff options
| -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" |