diff options
| author | simonmar <unknown> | 2002-05-06 12:49:21 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-05-06 12:49:21 +0000 |
| commit | 8f29f69631075577d3a0ed6a9571102a82e9c94f (patch) | |
| tree | e19ae6804ec43b075551d13c7aedba893954e34f | |
| parent | 687e68fa7bd127d6f01d5847182863ed302be99f (diff) | |
[haddock @ 2002-05-06 12:49:21 by simonmar]
Fix silly bug in named documentation block lookup.
| -rw-r--r-- | src/Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index 9873d2f8..08a70bde 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -591,8 +591,9 @@ findNamedDoc str decls = where search [] = Nothing search (HsDocCommentNamed str : rest) = case matchRegexAll docNameRE str of - Nothing -> search rest - Just (_, _, after, _, _) -> Just after + Just (_, _, after, _, name':_) + | name == name' -> Just after + _otherwise -> search rest search (_other_decl : rest) = search rest _other -> Nothing |