diff options
| author | askeblad <74082607+askeblad@users.noreply.github.com> | 2022-04-06 10:47:57 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-04-06 17:47:57 +0200 |
| commit | a127bb256ec411b2e78edba21299c5dabba3b847 (patch) | |
| tree | 835521eb575bbaba2ca89e542fd4a3f12b577468 /haddock-api/src/Haddock/Backends/Hyperlinker | |
| parent | d8dbbdad173baafe73acc98e6427c468fd3e13cc (diff) | |
spelling errors (#1471)
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 12f37ced..cacb0dc7 100644 --- a/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs +++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs @@ -141,7 +141,7 @@ richToken srcs details Token{..} contexts = concatMap (Set.elems . identInfo) . Map.elems . nodeIdentifiers $ details - -- pick an arbitary non-evidence identifier to hyperlink with + -- pick an arbitrary non-evidence identifier to hyperlink with identDet = Map.lookupMin $ Map.filter notEvidence $ nodeIdentifiers $ details notEvidence = not . any isEvidenceContext . identInfo |