Move the "This is a generated file" to the top of GHC.Prim

diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs
index d5279b7..760ebf4 100644 (file)
--- 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) =
 
 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"
        ++ "-- |\n"
        ++ "-- Module      :  GHC.Prim\n"
        ++ "-- \n"

@@ -125,12 +131,6 @@ gen_hs_source (Info defaults entries) =
        ++ unlines (map (("\t" ++) . hdr) entries)
        ++ ") where\n"
     ++ "\n"
        ++ 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"
     ++ "import GHC.Bool\n"
     ++ "\n"
     ++ "{-\n"