@@ -58,8 +58,7 @@ getDocumentation tcs targetName = fromMaybe [] $ do
5858 -- Find the module the target is defined in.
5959 targetNameSpan <- realSpan $ nameSrcSpan targetName
6060 tc <-
61− listToMaybe
62− $ filter ((==) (Just $ srcSpanFile targetNameSpan) . annotationFileName)
61+ find ((==) (Just $ srcSpanFile targetNameSpan) . annotationFileName)
6362 $ reverse tcs -- TODO : Is reversing the list here really neccessary?
6463 -- Names bound by the module (we want to exclude non-"top-level"
6564 -- bindings but unfortunately we get all here).
@@ -193,4 +192,4 @@ haddockToMarkdown (H.DocTable _t)
193192-- things I don't really know how to handle
194193haddockToMarkdown (H.DocProperty _)
195194 = "" -- don't really know what to do
196−#endif
195+#endif