Just rename a local variable
authorIan Lynagh <igloo@earth.li>
Wed, 25 Jan 2012 13:15:55 +0000 (13:15 +0000)
committerIan Lynagh <igloo@earth.li>
Thu, 26 Jan 2012 19:54:12 +0000 (19:54 +0000)
compiler/rename/RnEnv.lhs

index bd424e8..29a5625 100644 (file)
@@ -470,9 +470,9 @@ lookupPromotedOccRn rdr_name
            Nothing -> unboundName WL_Any rdr_name
            Just demoted_name 
              | data_kinds -> return demoted_name
-             | otherwise  -> unboundNameX WL_Any rdr_name suggest_pk }}}
+             | otherwise  -> unboundNameX WL_Any rdr_name suggest_dk }}}
   where 
-    suggest_pk = ptext (sLit "A data constructor of that name is in scope; did you mean -XDataKinds?")
+    suggest_dk = ptext (sLit "A data constructor of that name is in scope; did you mean -XDataKinds?")
 \end{code}
 
 Note [Demotion]