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=760ebf4a0db5b45200cc8b3891810be547c5e5e7;hp=d5279b70baa146c9d4d4c4f1b8cd0fe00e578603;hb=0dffbed453a400f0df66d68e3e64184c1e4d940d;hpb=a4f49e905541846b236ecafd21307f57fe15bc44

diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs
index d5279b7..760ebf4 100644
--- a/utils/genprimopcode/Main.hs
+++ b/utils/genprimopcode/Main.hs
@@ -110,7 +110,13 @@ known_args
 
 gen_hs_source :: Info -> String
 gen_hs_source (Info defaults entries) =
-	   "-----------------------------------------------------------------------------\n"
+       "{-\n"
+    ++ "This is a generated file (generated by genprimopcode).\n"
+    ++ "It is not code to actually be used. Its only purpose is to be\n"
+    ++ "consumed by haddock.\n"
+    ++ "-}\n"
+    ++ "\n"
+	++ "-----------------------------------------------------------------------------\n"
 	++ "-- |\n"
 	++ "-- Module      :  GHC.Prim\n"
 	++ "-- \n"
@@ -125,12 +131,6 @@ gen_hs_source (Info defaults entries) =
 	++ unlines (map (("\t" ++) . hdr) entries)
 	++ ") where\n"
     ++ "\n"
-    ++ "{-\n"
-    ++ "This is a generated file (generated by genprimopcode).\n"
-    ++ "It is not code to actually be used. Its only purpose is to be\n"
-    ++ "consumed by haddock.\n"
-    ++ "-}\n"
-    ++ "\n"
     ++ "import GHC.Bool\n"
     ++ "\n"
     ++ "{-\n"