diff options
author | Ian Lynagh <igloo@earth.li> | 2012-01-25 13:15:55 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2012-01-26 19:54:12 +0000 |
commit | 806c31ffdcb9351778452e7c4002cfe4c4eb874a (patch) | |
tree | 870f5c1e8840f04d18c2be8f4a8ae535eb90194b /compiler/rename/RnEnv.lhs | |
parent | 8d016e156fddf6361cccf6169e1432340c0aaf0d (diff) | |
download | haskell-806c31ffdcb9351778452e7c4002cfe4c4eb874a.tar.gz |
Just rename a local variable
Diffstat (limited to 'compiler/rename/RnEnv.lhs')
-rw-r--r-- | compiler/rename/RnEnv.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/rename/RnEnv.lhs b/compiler/rename/RnEnv.lhs index bd424e87b8..29a56259f6 100644 --- a/compiler/rename/RnEnv.lhs +++ b/compiler/rename/RnEnv.lhs @@ -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] |