[project @ 2000-10-24 07:35:00 by simonpj]

[ghc-hetmet.git] / ghc / compiler / coreSyn / CoreUnfold.lhs

diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index 69f7150..ac41b7b 100644 (file)
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -36,7 +36,7 @@ import CmdLineOpts    ( opt_UF_CreationThreshold,
                          opt_UF_FunAppDiscount,
                          opt_UF_KeenessFactor,
                          opt_UF_DearOp, opt_UnfoldCasms,
-                         DynFlags, dopt_D_dump_inlinings
+                         DynFlags, DynFlag(..), dopt
                        )
 import CoreSyn
 import PprCore         ( pprCoreExpr )
@@ -355,8 +355,6 @@ data ExprSize = TooBig
                       FastInt          -- Size to subtract if result is scrutinised 
                                        -- by a case expression
 
-isTooBig TooBig = True
-isTooBig _      = False
 
 maxSize TooBig         _                                 = TooBig
 maxSize _              TooBig                            = TooBig
@@ -613,7 +611,7 @@ callSiteInline dflags black_listed inline_call occ id arg_infos interesting_cont
                
     in    
 #ifdef DEBUG
-    if dopt_D_dump_inlinings dflags then
+    if dopt Opt_D_dump_inlinings dflags then
        pprTrace "Considering inlining"
                 (ppr id <+> vcat [text "black listed:" <+> ppr black_listed,
                                   text "occ info:" <+> ppr occ,