[project @ 2001-02-26 15:06:57 by simonmar]

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

diff --git a/ghc/compiler/coreSyn/CoreTidy.lhs b/ghc/compiler/coreSyn/CoreTidy.lhs
index 5692636..2eb70e1 100644 (file)
--- a/ghc/compiler/coreSyn/CoreTidy.lhs
+++ b/ghc/compiler/coreSyn/CoreTidy.lhs
@@ -387,16 +387,9 @@ tidyIdInfo us tidy_env is_external unfold_info arity_info caf_info id
                -- after this!).
   where
     core_idinfo = idInfo id
-
+    new_flavour = makeConstantFlavour (flavourInfo core_idinfo)
        -- A DFunId must stay a DFunId, so that we can gather the
        -- DFunIds up later.  Other local things become ConstantIds.
-    new_flavour = case flavourInfo core_idinfo of
-                   VanillaId  -> ConstantId
-                   ExportedId -> ConstantId
-                   ConstantId -> ConstantId    -- e.g. Default methods
-                   DictFunId  -> DictFunId
-                   flavour    -> pprTrace "tidyIdInfo" (ppr id <+> ppFlavourInfo flavour)
-                                 flavour
 
 
 -- This is where we set names to local/global based on whether they really are