[project @ 2000-10-26 07:19:52 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / Rename.lhs

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index f246a55..59039e9 100644 (file)
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -339,7 +339,7 @@ rnDeprecs gbl_env Nothing decls
      = pushSrcLocRn loc                        $
        lookupGlobalRn gbl_env rdr_name `thenRn` \ maybe_name ->
        case maybe_name of
-        Just n  -> returnRn (Just (n,txt))
+        Just n  -> returnRn (Just (n,(n,txt)))
         Nothing -> returnRn Nothing
 \end{code}