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"
++ 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"