From: sof <unknown>
Date: Fri, 25 Jul 1997 23:11:33 +0000 (+0000)
Subject: [project @ 1997-07-25 23:11:33 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~219
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=00d5de2d88e39ee7437d22e1dac247b955da5ee4;hp=9c6016081f8d26072e00f0fac0105202fa847c6c;p=ghc-hetmet.git

[project @ 1997-07-25 23:11:33 by sof]
moved all_toplev_ids_visible to CmdLineOpts
---

diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs
index 1570bc5..0e4a361 100644
--- a/ghc/compiler/basicTypes/Name.lhs
+++ b/ghc/compiler/basicTypes/Name.lhs
@@ -62,7 +62,7 @@ import {-# SOURCE #-} TyCon ( TyCon )
 #endif
 
 import CStrings		( identToC, modnameToC, cSEP )
-import CmdLineOpts	( opt_OmitInterfacePragmas, opt_EnsureSplittableC )
+import CmdLineOpts	( opt_OmitInterfacePragmas, opt_EnsureSplittableC, all_toplev_ids_visible )
 import BasicTypes	( SYN_IE(Module), IfaceFlavour(..), moduleString, pprModule )
 
 import Outputable	( Outputable(..), PprStyle(..), codeStyle, ifaceStyle )
@@ -326,8 +326,6 @@ uniqToOccName uniq = VarOcc (_PK_ ('$':showUnique uniq))
 not_top_level (Just m) = False
 not_top_level Nothing  = True
 
-all_toplev_ids_visible = not opt_OmitInterfacePragmas ||  -- Pragmas can make them visible
-			 opt_EnsureSplittableC            -- Splitting requires visiblilty
 \end{code}
 
 %************************************************************************