Fix typo in warning message

74fb5c40 · pcapriotti · 949081a9 · 74fb5c40
Commit 74fb5c40 authored Jul 26, 2012 by pcapriotti
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
@@ -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) ])