From: qrczak <unknown>
Date: Tue, 3 Oct 2000 14:35:31 +0000 (+0000)
Subject: [project @ 2000-10-03 14:35:31 by qrczak]
X-Git-Tag: Approximately_9120_patches~3698
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=853393860c7632531dd447b85d91bfe606a56d4a;p=ghc-hetmet.git

[project @ 2000-10-03 14:35:31 by qrczak]
Added eqString_RDR to implicitFVs.
---

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 312456e..93437ca 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -49,7 +49,9 @@ import NameSet
 import TysWiredIn	( unitTyCon, intTyCon, doubleTyCon, boolTyCon )
 import PrelRules	( builtinRules )
 import PrelNames	( mAIN_Name, pREL_MAIN_Name, pRELUDE_Name,
-			  ioTyCon_RDR, unpackCString_RDR, unpackCStringFoldr_RDR, unpackCStringUtf8_RDR
+			  ioTyCon_RDR,
+			  unpackCString_RDR, unpackCStringFoldr_RDR, unpackCStringUtf8_RDR,
+			  eqString_RDR
 			)
 import PrelInfo		( fractionalClassKeys, derivingOccurrences )
 import Type		( namesOfType, funTyCon )
@@ -247,7 +249,8 @@ implicitFVs mod_name decls
     implicit_occs = string_occs ++ foldr ((++) . get) implicit_main decls
 
 	-- Virtually every program has error messages in it somewhere
-    string_occs = [unpackCString_RDR, unpackCStringFoldr_RDR, unpackCStringUtf8_RDR]
+    string_occs = [unpackCString_RDR, unpackCStringFoldr_RDR, unpackCStringUtf8_RDR,
+		   eqString_RDR]
 
     get (TyClD (TyData _ _ _ _ _ _ (Just deriv_classes) _ _ _ _))
        = concat (map get_deriv deriv_classes)