diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-10-04 09:26:11 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-10-04 09:26:11 +0100 |
| commit | 9fc03d37c67098ab9dfa9403ff2c94e640074a76 (patch) | |
| tree | b74aad6a9953623a36fcedd8654a64d89526870b /compiler/rename | |
| parent | b926bd65c66ed4018101531eacf5bb7c3068c624 (diff) | |
| download | haskell-9fc03d37c67098ab9dfa9403ff2c94e640074a76.tar.gz | |
Change error message slightly
in response to Neil's suggestion on Trac #4877
Diffstat (limited to 'compiler/rename')
| -rw-r--r-- | compiler/rename/RnExpr.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs index 8478db0cf9..d6bc2b1c55 100644 --- a/compiler/rename/RnExpr.lhs +++ b/compiler/rename/RnExpr.lhs @@ -147,7 +147,7 @@ rnExpr (OpApp e1 (L op_loc (HsVar op_rdr)) _ e2) ; final_e <- mkOpAppRn e1' (L op_loc op') fixity e2' ; return (final_e, fv_e1 `plusFV` fv_op `plusFV` fv_e2) } rnExpr (OpApp _ other_op _ _) - = failWith (vcat [ hang (ptext (sLit "Operator application with a non-variable operator:")) + = failWith (vcat [ hang (ptext (sLit "Infix application with a non-variable operator:")) 2 (ppr other_op) , ptext (sLit "(Probably resulting from a Template Haskell splice)") ]) |