summaryrefslogtreecommitdiff
path: root/utils/genprimopcode
diff options
context:
space:
mode:
authorAustin Seipp <austin@well-typed.com>2014-09-01 15:13:44 -0500
committerAustin Seipp <austin@well-typed.com>2014-09-01 15:13:45 -0500
commit3be704ab373ecd84d97b832c0d4f59dd7cb9e0ea (patch)
tree7b37882f8942548e8cdd83df2cd9374d61ffdee7 /utils/genprimopcode
parent64c9898f7b5239435f131f5444d62bda23dfc9ef (diff)
downloadhaskell-3be704ab373ecd84d97b832c0d4f59dd7cb9e0ea.tar.gz
genprimopcode: GHC.Prim is Unsafe (#9449)
Summary: Make sure the documentation for `GHC.Prim` adequately reflects the fact it is unsafe. Also clean up some 80-column violations. Signed-off-by: Austin Seipp <austin@well-typed.com> Test Plan: Build documentation, check `GHC.Prim`. It's properly marked as `Unsafe`. Reviewers: hvr, goldfire, ezyang Reviewed By: ezyang Subscribers: nomeata, simonmar, ezyang, carter Differential Revision: https://phabricator.haskell.org/D182 GHC Trac Issues: #9449
Diffstat (limited to 'utils/genprimopcode')
-rw-r--r--utils/genprimopcode/Main.hs12
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"