diff options
| -rw-r--r-- | utils/genprimopcode/Main.hs | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index bb40917fd5..67c2131638 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -227,7 +227,7 @@ gen_hs_source (Info defaults entries) = ++ "consumed by haddock.\n" ++ "-}\n" ++ "\n" - ++ "-----------------------------------------------------------------------------\n" + ++ (replicate 77 '-' ++ "\n") -- For 80-col cleanliness ++ "-- |\n" ++ "-- Module : GHC.Prim\n" ++ "-- \n" @@ -238,9 +238,13 @@ gen_hs_source (Info defaults entries) = ++ "-- GHC\'s primitive types and operations.\n" ++ "-- Use GHC.Exts from the base package instead of importing this\n" ++ "-- module directly.\n" - ++ "--\n" - ++ "-----------------------------------------------------------------------------\n" - ++ "{-# LANGUAGE MagicHash, MultiParamTypeClasses, NoImplicitPrelude, UnboxedTuples #-}\n" + ++ "--\n" + ++ (replicate 77 '-' ++ "\n") -- For 80-col cleanliness + ++ "{-# LANGUAGE Unsafe #-}\n" + ++ "{-# LANGUAGE MagicHash #-}\n" + ++ "{-# LANGUAGE MultiParamTypeClasses #-}\n" + ++ "{-# LANGUAGE NoImplicitPrelude #-}\n" + ++ "{-# LANGUAGE UnboxedTuples #-}\n" ++ "module GHC.Prim (\n" ++ unlines (map ((" " ++) . hdr) entries') ++ ") where\n" |