From: sof <unknown>
Date: Sun, 19 Oct 1997 21:38:07 +0000 (+0000)
Subject: [project @ 1997-10-19 21:38:07 by sof]
X-Git-Tag: Approx_2487_patches~1358
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b89ea7a599124f7d38500939eaf0f76874000657;p=ghc-hetmet.git

[project @ 1997-10-19 21:38:07 by sof]
Drop use of opt_CompilingGhcInternals
---

diff --git a/ghc/compiler/specialise/Specialise.lhs b/ghc/compiler/specialise/Specialise.lhs
index 803e4a4..504ea36 100644
--- a/ghc/compiler/specialise/Specialise.lhs
+++ b/ghc/compiler/specialise/Specialise.lhs
@@ -21,7 +21,7 @@ import Bag		( emptyBag, unitBag, isEmptyBag, unionBags,
 			)
 import Class		( GenClass{-instance Eq-}, SYN_IE(Class) )
 import CmdLineOpts	( opt_SpecialiseImports, opt_D_simplifier_stats,
-			  opt_CompilingGhcInternals, opt_SpecialiseTrace
+			  opt_SpecialiseTrace
 			)
 import CoreLift		( mkLiftedId, liftExpr, bindUnlift, applyBindUnlifts )
 import CoreSyn
@@ -1230,7 +1230,7 @@ specTyConsAndScope scopeM
   = scopeM			`thenSM` \ (binds, scope_uds) ->
     let
        (tycons_cis, gotci_scope_uds)
-	 = getLocalSpecTyConIs opt_CompilingGhcInternals scope_uds
+	 = getLocalSpecTyConIs False{-OLD:opt_CompilingGhcInternals-} scope_uds
 
        tycon_specs_list = collectTyConSpecs tycons_cis
     in