haddock-api/src/Haddock/Backends/Hyperlinker/Utils.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module Haddock.Backends.Hyperlinker.Utils
    ( srcModUrl
    , srcNameUrlMap
    ) where

import Haddock.Utils
import Haddock.Backends.Xhtml.Types

import GHC

import Data.Maybe
import Data.Map (Map)

srcModUrl :: SourceURLs -> String
srcModUrl (_, mModUrl, _, _) = fromMaybe defaultModuleSourceUrl mModUrl

srcNameUrlMap :: SourceURLs -> Map PackageKey FilePath
srcNameUrlMap (_, _, nameUrlMap, _) = nameUrlMap