diff options
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Hyperlinker')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs | 5 | 
1 files changed, 2 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs index d77990d1..7fa5a443 100644 --- a/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs +++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs @@ -1,6 +1,5 @@  {-# LANGUAGE RecordWildCards #-}  {-# LANGUAGE ViewPatterns #-} -{-# LANGUAGE PatternSynonyms #-}  {-# LANGUAGE OverloadedStrings #-}  {-# LANGUAGE BangPatterns #-} @@ -142,8 +141,8 @@ richToken srcs details Token{..}      contexts = concatMap (Set.elems . identInfo) . Map.elems . nodeIdentifiers $ details -    -- pick an arbitary non-evidence identifier to hyperlink with -    identDet = Map.lookupMin $ Map.filter notEvidence $ nodeIdentifiers $ details +    -- pick an arbitrary non-evidence identifier to hyperlink with +    identDet = Map.lookupMin $ Map.filter notEvidence $ nodeIdentifiers details      notEvidence = not . any isEvidenceContext . identInfo      -- If we have name information, we can make links  | 
