projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a4f49e9
)
Move the "This is a generated file" to the top of GHC.Prim
author
Ian Lynagh
<igloo@earth.li>
Fri, 5 Sep 2008 12:21:09 +0000
(12:21 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Fri, 5 Sep 2008 12:21:09 +0000
(12:21 +0000)
utils/genprimopcode/Main.hs
patch
|
blob
|
history
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"