[commit: haddock] ghc-7.6: Add a type signature for a where-binding (0730c1b)

[David Waern]

Repository : ssh://darcs.haskell.org//srv/darcs/haddock

On branch  : ghc-7.6

http://hackage.haskell.org/trac/ghc/changeset/0730c1b4088fd5d2c36671b0adf3c9e11222e233

>---------------------------------------------------------------

commit 0730c1b4088fd5d2c36671b0adf3c9e11222e233
Author: Simon Hengel <sol at typeful.net>
Date:   Wed May 16 14:13:37 2012 +0200

    Add a type signature for a where-binding

>---------------------------------------------------------------

 src/Haddock/Interface/Create.hs |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 6fa6c59..32d187a 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