[commit: ghc] master: Fix typo in warning message (74fb5c4)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/74fb5c40f2730b5d6f17aadc5c13cab777c13e6e

>---------------------------------------------------------------

commit 74fb5c40f2730b5d6f17aadc5c13cab777c13e6e
Author: Paolo Capriotti <p.capriotti at gmail.com>
Date:   Thu Jul 26 21:30:02 2012 +0100

    Fix typo in warning message

>---------------------------------------------------------------

 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 8e72e1c..28b0582 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) ])