X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcBinds.lhs;h=cf0e165259721b4c7d8d1988cdf4b8922902694c;hb=c27e722fcf8ea5fb4dc0c64e9e1d6c4b66abd46c;hp=7978dad9246042a9733cd8f0351f4f71046932c3;hpb=c279f61e3762b137c035ca0bae960415a8916f03;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcBinds.lhs b/compiler/typecheck/TcBinds.lhs
index 7978dad..cf0e165 100644
--- a/compiler/typecheck/TcBinds.lhs
+++ b/compiler/typecheck/TcBinds.lhs
@@ -446,7 +446,7 @@ tcPrags :: RecFlag
         -> Bool     -- True <=> function is overloaded
         -> Id -> [LSig Name]
         -> TcM (Id, [Located TcSpecPrag])
--- Add INLINE and SPECLIASE pragmas
+-- Add INLINE and SPECIALSE pragmas
 --    INLINE prags are added to the (polymorphic) Id directly
 --    SPECIALISE prags are passed to the desugarer via TcSpecPrags
 -- Pre-condition: the poly_id is zonked
@@ -580,7 +580,7 @@ unliftedMustBeBang :: LHsBindsLR Var Var -> SDoc
 unliftedMustBeBang mbind
   = hang (text "Bindings containing unlifted types must use an outermost bang pattern:")
          4 (pprLHsBinds mbind)
- $$ text "*** This will be an error in GHC 6.14! Fix your code now!"
+ $$ text "*** This will be an error in GHC 7.2! Fix your code now!"
 
 strictBindErr :: String -> Bool -> LHsBindsLR Var Var -> SDoc
 strictBindErr flavour unlifted mbind