Skip to content
This repository has been archived by the owner on Jan 2, 2021. It is now read-only.

Commit

Permalink
Fix HLint (#316)
Browse files Browse the repository at this point in the history
The new version introduced a new hint that broke our build.
  • Loading branch information
cocreature authored Jan 10, 2020
1 parent c122ebd commit eb96e2c
Showing 1 changed file with 2 additions and 3 deletions.
5 changes: 2 additions & 3 deletions src/Development/IDE/Spans/Documentation.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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).
Expand Down Expand Up @@ -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

0 comments on commit eb96e2c

Please sign in to comment.