diff options
| author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-07-26 21:30:02 +0100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-07-26 21:51:58 +0100 |
| commit | 74fb5c40f2730b5d6f17aadc5c13cab777c13e6e (patch) | |
| tree | f031d5df7016200defdf906ab6bba95e4fb32525 /compiler/deSugar | |
| parent | 949081a9e87aee633e43d8e1795036c106456cfe (diff) | |
| download | haskell-74fb5c40f2730b5d6f17aadc5c13cab777c13e6e.tar.gz | |
Fix typo in warning message
Diffstat (limited to 'compiler/deSugar')
| -rw-r--r-- | compiler/deSugar/Desugar.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs index 8e72e1c524..28b0582076 100644 --- a/compiler/deSugar/Desugar.lhs +++ b/compiler/deSugar/Desugar.lhs @@ -396,7 +396,7 @@ dsRule (L loc (HsRule name act vars lhs _tv_lhs rhs _fv_rhs)) ; when inline_shadows_rule $ warnDs (vcat [ hang (ptext (sLit "Rule") <+> doubleQuotes (ftext name) <+> ptext (sLit "may never fire")) - 2 (ptext (sLit "becuase") <+> quotes (ppr fn_id) + 2 (ptext (sLit "because") <+> quotes (ppr fn_id) <+> ptext (sLit "might inline first")) , ptext (sLit "Probable fix: add an INLINE[n] or NOINLINE[n] pragma on") <+> quotes (ppr fn_id) ]) |