diff options
| author | Phil de Joux <philderbeast@gmail.com> | 2022-07-24 07:45:59 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-07-24 13:45:59 +0200 |
| commit | 2f1711b301fea88eb1d0b40d1c04b2f0539fd882 (patch) | |
| tree | 4523ca2ffd88b1002036879ab593d4abaff8d417 /haddock-api/src/Haddock/Backends/Hyperlinker | |
| parent | 90c38242e54d1a742426e2b1b3c7d71e226811bd (diff) | |
Follow hlint suggestion: redundant $. (#1505)
* Follow hlint suggestion: redundant $.
* Remove $ and surplus blank lines in Operators.
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Hyperlinker')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs index a8a51e5d..7fa5a443 100644 --- a/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs +++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs @@ -142,7 +142,7 @@ richToken srcs details Token{..} contexts = concatMap (Set.elems . identInfo) . Map.elems . nodeIdentifiers $ details -- pick an arbitrary non-evidence identifier to hyperlink with - identDet = Map.lookupMin $ Map.filter notEvidence $ nodeIdentifiers $ details + identDet = Map.lookupMin $ Map.filter notEvidence $ nodeIdentifiers details notEvidence = not . any isEvidenceContext . identInfo -- If we have name information, we can make links |