X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fgenprimopcode%2FMain.hs;fp=utils%2Fgenprimopcode%2FMain.hs;h=3d7c83f34fae1375111b711ddca5eeb787e7d24b;hp=2f7a287ea2d5782b5504de2e774ec431c70e6da2;hb=28cb2d6d40264796fb84da1f352490fd2b8eb27f;hpb=c91279a1e4fd631d42ad903eaf699a96c22f380e

diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs
index 2f7a287..3d7c83f 100644
--- a/utils/genprimopcode/Main.hs
+++ b/utils/genprimopcode/Main.hs
@@ -132,7 +132,7 @@ gen_hs_source (Info defaults entries) =
 	++ unlines (map (("\t" ++) . hdr) entries)
 	++ ") where\n"
     ++ "\n"
-    ++ "import GHC.Bool\n"
+    ++ "import GHC.Types\n"
     ++ "\n"
     ++ "{-\n"
 	++ unlines (map opt defaults)
@@ -487,7 +487,7 @@ gen_wrappers (Info _ entries)
 	-- don't need the Prelude here so we add NoImplicitPrelude.
      ++ "module GHC.PrimopWrappers where\n" 
      ++ "import qualified GHC.Prim\n" 
-     ++ "import GHC.Bool (Bool)\n"
+     ++ "import GHC.Types (Bool)\n"
      ++ "import GHC.Unit ()\n"
      ++ "import GHC.Prim (" ++ types ++ ")\n"
      ++ unlines (concatMap f specs)