Wibble to error message
authorsimonpj@microsoft.com <unknown>
Fri, 11 Sep 2009 09:08:19 +0000 (09:08 +0000)
committersimonpj@microsoft.com <unknown>
Fri, 11 Sep 2009 09:08:19 +0000 (09:08 +0000)
compiler/typecheck/TcEnv.lhs

index f9a9179..bcc2169 100644 (file)
@@ -538,7 +538,7 @@ checkWellStaged pp_thing bind_lvl use_lvl
   = failWithTc $ 
     sep [ptext (sLit "GHC stage restriction:") <+>  pp_thing,
         nest 2 (vcat [ ptext (sLit "is used in a top-level splice or annotation,")
-                      , ptext (sLit "and must be imported, not defined locally")])]
+                      , ptext (sLit "and must be imported, not defined locally")])]
 
   | otherwise                  -- Badly staged
   = failWithTc $               -- E.g.  \x -> $(f x)