Typo in error message

e1c116c6 · Simon Peyton Jones · 4dac5452 · e1c116c6
Commit e1c116c6 authored Jul 23, 2012 by Simon Peyton Jones
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/deSugar/Desugar.lhs compiler/deSugar/Desugar.lhs +1 -1

No files found.
--- 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) ])