X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2Fgenprimopcode%2FMain.hs;fp=ghc%2Futils%2Fgenprimopcode%2FMain.hs;h=5be75a6e9456cc4d08bfd9fc710d8c4641eeb4e0;hb=2cc5b907318f97e19b28b2ad8ed9ff8c1f401dcc;hp=2e79230387791dc69fbab340ebd3086554b5a30d;hpb=239e9471e104fd88ec93bf42623c3a68a496657a;p=ghc-hetmet.git

diff --git a/ghc/utils/genprimopcode/Main.hs b/ghc/utils/genprimopcode/Main.hs
index 2e79230..5be75a6 100644
--- a/ghc/utils/genprimopcode/Main.hs
+++ b/ghc/utils/genprimopcode/Main.hs
@@ -249,15 +249,15 @@ gen_latex_doc (Info defaults entries)
 	   latex_encode (c:cs) = c:(latex_encode cs)
 
 gen_wrappers (Info defaults entries)
-   = "module PrelPrimopWrappers where\n" 
-     ++ "import qualified PrelGHC\n" 
+   = "module GHC.PrimopWrappers where\n" 
+     ++ "import qualified GHC.Prim\n" 
      ++ unlines (map f (filter (not.dodgy) (filter is_primop entries)))
      where
         f spec = let args = map (\n -> "a" ++ show n) [1 .. arity (ty spec)]
                      src_name = wrap (name spec)
                  in "{-# NOINLINE " ++ src_name ++ " #-}\n" ++ 
                     src_name ++ " " ++ unwords args 
-                     ++ " = (PrelGHC." ++ name spec ++ ") " ++ unwords args
+                     ++ " = (GHC.Prim." ++ name spec ++ ") " ++ unwords args
         wrap nm | isLower (head nm) = nm
                 | otherwise = "(" ++ nm ++ ")"