aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Backends
diff options
context:
space:
mode:
Diffstat (limited to 'haddock-api/src/Haddock/Backends')
-rw-r--r--haddock-api/src/Haddock/Backends/Org.hs8
1 files changed, 5 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock/Backends/Org.hs b/haddock-api/src/Haddock/Backends/Org.hs
index 9d02d0db..70994d1a 100644
--- a/haddock-api/src/Haddock/Backends/Org.hs
+++ b/haddock-api/src/Haddock/Backends/Org.hs
@@ -245,8 +245,10 @@ processExport _ (ExportModule mdl ) = do
ppFnArgsDoc :: FnArgsDoc DocName -> [OrgBlock]
ppFnArgsDoc aDoc = if M.null aDoc
then []
- else ((`ppDoc` Nothing) . DocParagraph . DocString) "Arguments (in order):"
- ++ ((`ppDoc` Nothing) . DocOrderedList . toList . M.map _doc) aDoc
+ else
+ ((`ppDoc` Nothing) . DocParagraph . DocString) "Arguments (in order):"
+ ++ ((`ppDoc` Nothing) . DocOrderedList . map snd . toList . M.map _doc)
+ aDoc
ppDocumentation :: Documentation DocName -> Maybe Int -> [OrgBlock]
ppDocumentation (Documentation (Just mdoc) _) minLevel = ppMDoc mdoc minLevel
@@ -266,7 +268,7 @@ ppDocBlock (DocParagraph x) _ = [Paragraph (ppDocInline x)]
ppDocBlock (DocUnorderedList docs) _ =
[PlainList Unordered $ (`ppDocBlock` Nothing) <$> docs]
ppDocBlock (DocOrderedList items) _ =
- [PlainList Ordered (map ((`ppDocBlock` Nothing) . snd) items)]
+ [PlainList Ordered (map (`ppDocBlock` Nothing) items)]
ppDocBlock (DocDefList pairs) _ =
[ DefList
$ (\(term, def) -> (ppDocInline term, ppDocBlock def Nothing))