aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorSimon Hengel <sol@typeful.net>2012-05-16 14:13:37 +0200
committerSimon Hengel <sol@typeful.net>2012-05-27 08:50:02 +0200
commit0730c1b4088fd5d2c36671b0adf3c9e11222e233 (patch)
tree7b03cc8343510350842a9fc46cab00bfee2e4b77 /src/Haddock
parent8344dcced9607de9f969ed2e226346e5ba57df03 (diff)
Add a type signature for a where-binding
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Interface/Create.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 6fa6c598..32d187a5 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -690,6 +690,7 @@ fullModuleContents dflags warnings gre (docMap, argMap, subMap, declMap) decls =
f (L l (SigD (GenericSig names t))) xs = foldr (\n acc -> L l (SigD (GenericSig [n] t)) : acc) xs names
f x xs = x : xs
+ mkExportItem :: LHsDecl Name -> ErrMsgGhc (Maybe (ExportItem Name))
mkExportItem (L _ (DocD (DocGroup lev docStr))) = do
mbDoc <- liftErrMsg $ processDocString dflags gre docStr
return $ fmap (ExportGroup lev "") mbDoc