Fix HLint (#316)

The new version introduced a new hint that broke our build.

Author: cocreature

src/Development/IDE/Spans/Documentation.hs

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