aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Interface/Create.hs9
1 files changed, 4 insertions, 5 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 9d0995e6..23a3ee26 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -593,14 +593,13 @@ allSubsOfName modMap name
| otherwise = error $ "Main.allSubsOfName: unexpected unqual'd name"
--- Named documentation
-
+-- | Find a stand-alone documentation comment by its name
findNamedDoc :: String -> [HsDecl Name] -> ErrMsgM (Maybe Doc)
findNamedDoc name decls = search decls
- where
+ where
search [] = do
- tell ["Cannot find documentation for: $" ++ name]
- return Nothing
+ tell ["Cannot find documentation for: $" ++ name]
+ return Nothing
search ((DocD (DocCommentNamed name' doc)):rest)
| name == name' = return (Just doc)
| otherwise = search rest