X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcBinds.lhs;h=cf0e165259721b4c7d8d1988cdf4b8922902694c;hb=9d193eceb5f287ac3dfa90b40e22d9c992cf9f66;hp=84a25f2786e08ac9e1b16eeaaa2abff27f508776;hpb=58879838c504929d5e0be905b4f8266df385cfdd;p=ghc-hetmet.git diff --git a/compiler/typecheck/TcBinds.lhs b/compiler/typecheck/TcBinds.lhs index 84a25f2..cf0e165 100644 --- a/compiler/typecheck/TcBinds.lhs +++ b/compiler/typecheck/TcBinds.lhs @@ -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