Typo
authorKrzysztof Gogolewski <krz.gogolewski@gmail.com>
Mon, 18 Nov 2013 12:26:44 +0000 (13:26 +0100)
committerKrzysztof Gogolewski <krz.gogolewski@gmail.com>
Mon, 18 Nov 2013 12:57:45 +0000 (13:57 +0100)
compiler/deSugar/Check.lhs
compiler/deSugar/MatchLit.lhs

index 7a4ba5c..76a8c01 100644 (file)
@@ -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
index b888b79..2842b7b 100644 (file)
@@ -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 ()