diff options
author | Austin Seipp <austin@well-typed.com> | 2014-09-01 15:13:44 -0500 |
---|---|---|
committer | Austin Seipp <austin@well-typed.com> | 2014-09-01 15:13:45 -0500 |
commit | 3be704ab373ecd84d97b832c0d4f59dd7cb9e0ea (patch) | |
tree | 7b37882f8942548e8cdd83df2cd9374d61ffdee7 /utils/genprimopcode | |
parent | 64c9898f7b5239435f131f5444d62bda23dfc9ef (diff) | |
download | haskell-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.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" |