4

假设我有一个从内部模块重新导出值的模块:

module My.Cool.Module (SomeType, someValue) where
import My.Cool.Module.Internal (SomeType, someValue)

我想为SomeTypeand展示不同someValue的文档My-Cool-Module.htmlMy-Cool-Module-Internal.html因此前者可以讨论公共 API,而后者可以讨论它们与其他内部结构的关系。

有没有办法用黑线鳕做到这一点?

我试过了:

module My.Cool.Module (SomeType, someValue) where
import My.Cool.Module.Internal
  ( SomeType -- ^ a serious type for serious people
  , someValue -- ^ a serious value for serious people
  )

但是黑线鳕给了我一个解析错误:

parse error on input ‘-- ^ a serious type for serious people’
4

1 回答 1

3

好的,这是一个我可以忍受的黑客。

Haddock 允许您插入命名的文档块,它们按照定义的顺序显示。这些命名的块仅针对它们所在的模块显示,而不是在从该模块重新导出值或类型的任何文件中。

所以在内部模块中,我可以在公共 API 文档之后插入包含内部文档的命名块:

-- | Have you welcomed internal modules into your life?
module Public.Private where

-- | Here's the public API information for 'SomeType'
type SomeType = ()
-- $
-- Here's the internal information about 'SomeType': it's really just a stand-in
-- for San Francisco

-- | Here's the public API information for 'someValue'
someValue :: SomeType
-- $ Here's the internal information about 'someValue': it loves cheese.
someValue = ()

然后正常导出类型和值

-- | This is a very serious public API
module Public ( SomeType, someValue) where
import Public.Private ( SomeType , someValue)

现在生成的文档Public.Private在公共文档之后显示内部文档:

为 Public.Private 生成的 HTML 文档

虽然Public导出项目的文档不显示内部文档:

为公共生成的 HTML 文档

这只允许我附加私人文档,但这总比没有好。

于 2015-10-16T18:25:35.293 回答