[project @ 2002-03-18 09:45:10 by simonmar]

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

diff --git a/ghc/compiler/coreSyn/ExternalCore.lhs b/ghc/compiler/coreSyn/ExternalCore.lhs
index 8ddc7da..adfaecd 100644 (file)
--- a/ghc/compiler/coreSyn/ExternalCore.lhs
+++ b/ghc/compiler/coreSyn/ExternalCore.lhs
@@ -5,7 +5,6 @@
 
 module ExternalCore where
 
-import List (elemIndex)
 
 data Module 
  = Module Mname [Tdef] [Vdefg]
@@ -77,7 +76,7 @@ type Qual t = (Mname,t)
 
 type Id = String
 
-primMname = "PrelGHC"
+primMname = "GHC.Prim"
 
 tcArrow :: Qual Tcon
 tcArrow = (primMname, "ZLzmzgZR")