From 00d5de2d88e39ee7437d22e1dac247b955da5ee4 Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 25 Jul 1997 23:11:33 +0000 Subject: [PATCH] [project @ 1997-07-25 23:11:33 by sof] moved all_toplev_ids_visible to CmdLineOpts --- ghc/compiler/basicTypes/Name.lhs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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} %************************************************************************ -- 1.7.10.4