[commit: ghc] master: Typo (600b36a)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/600b36a158312202ad82cc248623e68475d60f1c/ghc

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

commit 600b36a158312202ad82cc248623e68475d60f1c
Author: Krzysztof Gogolewski <krz.gogolewski at gmail.com>
Date:   Mon Nov 18 13:26:44 2013 +0100

    Typo


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

600b36a158312202ad82cc248623e68475d60f1c
 compiler/deSugar/Check.lhs    |    2 +-
 compiler/deSugar/MatchLit.lhs |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/deSugar/Check.lhs b/compiler/deSugar/Check.lhs
index 7a4ba5c..76a8c01 100644
--- a/compiler/deSugar/Check.lhs
+++ b/compiler/deSugar/Check.lhs
@@ -545,7 +545,7 @@ You can see if one constructor is infix with this clearer code :-))))))))))
 
 
 We don't mind the @nilDataCon@ because it doesn't change the way to
-print the messsage, we are searching only for things like: @[1,2,3]@,
+print the message, we are searching only for things like: @[1,2,3]@,
 not @x:xs@ ....
 
 In @reconstruct_pat@ we want to ``undo'' the work
diff --git a/compiler/deSugar/MatchLit.lhs b/compiler/deSugar/MatchLit.lhs
index b888b79..2842b7b 100644
--- a/compiler/deSugar/MatchLit.lhs
+++ b/compiler/deSugar/MatchLit.lhs
@@ -140,7 +140,7 @@ warnAboutIdentities dflags (Var conv_fn) type_of_conv
   , arg_ty `eqType` res_ty  -- So we are converting  ty -> ty
   = warnDs (vcat [ ptext (sLit "Call of") <+> ppr conv_fn <+> dcolon <+> ppr type_of_conv
                  , nest 2 $ ptext (sLit "can probably be omitted")
-                 , parens (ptext (sLit "Use -fno-warn-identities to suppress this messsage)"))
+                 , parens (ptext (sLit "Use -fno-warn-identities to suppress this message"))
            ])
 warnAboutIdentities _ _ _ = return ()