X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fext-core%2FLanguage%2FCore%2FOverrides.hs;h=391b129faaad16ad33900389f78d91476c516bd9;hb=5a4c6ef6e909fbd978ff81bb3453489e884d1885;hp=a545a25b0eb81fd5b8711602ffa213d1eef596bc;hpb=b84b5969798530dbf5be9b8bb795b77e5dfbf042;p=ghc-hetmet.git

diff --git a/utils/ext-core/Language/Core/Overrides.hs b/utils/ext-core/Language/Core/Overrides.hs
index a545a25..391b129 100644
--- a/utils/ext-core/Language/Core/Overrides.hs
+++ b/utils/ext-core/Language/Core/Overrides.hs
@@ -16,7 +16,6 @@ module Language.Core.Overrides (override) where
 import Language.Core.Core
 import Language.Core.Encoding
 import Language.Core.ParsecParser
-import Language.Core.Prims
 
 import Data.Generics
 import System.FilePath
@@ -57,16 +56,20 @@ wiredInFileName (M (_,_,leafName)) =
 mungePackageName :: Module -> Module
 -- for now: just substitute "base-extcore" for "base"
 -- and "GHC" for "GHC_ExtCore" in every module name
-mungePackageName m@(Module mn _ _) = everywhere (mkT mungeMname)
+mungePackageName m@(Module _ _ _) = everywhere (mkT mungeMname)
     (everywhere (mkT mungePname) 
        (everywhere (mkT mungeVarName) m))
   where mungePname (P s) | s == zEncodeString overriddenPname =
            (P "base")
         mungePname p = p
+{- TODO: Commented out because this code should eventually
+   be completely rewritten. No time to do it now.
         -- rewrite uses of fake primops
         mungeVarName (Var (Just mn', v))
           | mn' == mn && v `elem` (fst (unzip newPrimVars)) =
             Var (Just primMname, v)
+-}
+        mungeVarName :: Exp -> Exp
         mungeVarName e = e
 
 mungeMname :: AnMname -> AnMname