From a330da5297106ff214cbb5e74965d9d1ef9dab7b Mon Sep 17 00:00:00 2001 From: Alex Biehl Date: Mon, 3 Jul 2017 19:43:04 +0200 Subject: Document record fields when DuplicateRecordFields is enabled (#649) --- haddock-api/src/Haddock/Interface/Create.hs | 2 +- html-test/ref/DuplicateRecordFields.html | 160 ++++++++++++++++++++++++++++ html-test/src/DuplicateRecordFields.hs | 25 +++++ 3 files changed, 186 insertions(+), 1 deletion(-) create mode 100644 html-test/ref/DuplicateRecordFields.html create mode 100644 html-test/src/DuplicateRecordFields.hs diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs index 9227c378..b9179d11 100644 --- a/haddock-api/src/Haddock/Interface/Create.hs +++ b/haddock-api/src/Haddock/Interface/Create.hs @@ -79,7 +79,7 @@ createInterface tm flags modMap instIfaceMap = do dflags = ms_hspp_opts ms !instances = modInfoInstances mi !fam_instances = md_fam_insts md - !exportedNames = modInfoExports mi + !exportedNames = modInfoExportsWithSelectors mi (TcGblEnv { tcg_rdr_env = gre , tcg_warns = warnings diff --git a/html-test/ref/DuplicateRecordFields.html b/html-test/ref/DuplicateRecordFields.html new file mode 100644 index 00000000..4430b50a --- /dev/null +++ b/html-test/ref/DuplicateRecordFields.html @@ -0,0 +1,160 @@ +DuplicateRecordFields

Safe Haskell	Safe

DuplicateRecordFields

Documentation

data RawReplay #

Constructors

RawReplay

Fields

headerSize :: Int
The byte size of the first section.
headerCRC :: Int
The CRC of the first section.
header :: Int
The first section.
contentSize :: Int
The byte size of the second section.
contentCRC :: Int
The CRC of the second section.
content :: Int
The second section.
footer :: Int
Arbitrary data after the second section. In replays generated by + Rocket League, this is always empty. However it is not technically + invalid to put something here.

\ No newline at end of file diff --git a/html-test/src/DuplicateRecordFields.hs b/html-test/src/DuplicateRecordFields.hs new file mode 100644 index 00000000..2cf9ff43 --- /dev/null +++ b/html-test/src/DuplicateRecordFields.hs @@ -0,0 +1,25 @@ +{-# LANGUAGE DuplicateRecordFields #-} +module DuplicateRecordFields (RawReplay(..)) where + +import Prelude hiding (Int) + +data Int = Int + +data RawReplay = RawReplay + { headerSize :: Int + -- ^ The byte size of the first section. + , headerCRC :: Int + -- ^ The CRC of the first section. + , header :: Int + -- ^ The first section. + , contentSize :: Int + -- ^ The byte size of the second section. + , contentCRC :: Int + -- ^ The CRC of the second section. + , content :: Int + -- ^ The second section. + , footer :: Int + -- ^ Arbitrary data after the second section. In replays generated by + -- Rocket League, this is always empty. However it is not technically + -- invalid to put something here. + } \ No newline at end of file -- cgit v1.2.3