diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-07-23 09:22:29 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-07-23 09:22:29 +0100 |
| commit | e1c116c6600b63f950b8cae8e8c765d8782eed72 (patch) | |
| tree | bd59c735be553b957146779cdeb882e6351d2fa9 /compiler | |
| parent | 4dac5452d15f5299597e1f9c7f138f950a4b5089 (diff) | |
| download | haskell-e1c116c6600b63f950b8cae8e8c765d8782eed72.tar.gz | |
Typo in error message
Diffstat (limited to 'compiler')
| -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 f2e8e1e135..14fb08ddd5 100644 --- a/compiler/deSugar/Desugar.lhs +++ b/compiler/deSugar/Desugar.lhs @@ -395,7 +395,7 @@ dsRule (L loc (HsRule name act vars lhs _tv_lhs rhs _fv_rhs)) warnDs (vcat [ hang (ptext (sLit "Rule") <+> doubleQuotes (ftext name) <+> ptext (sLit "may never fire")) 2 (ptext (sLit "becuase") <+> quotes (ppr fn_id) - <+> ptext (sLit "might inline firsrt")) + <+> ptext (sLit "might inline first")) , ptext (sLit "Probable fix: add an INLINE[n] or NOINLINE[n] pragma on") <+> quotes (ppr fn_id) ]) |