diff options
| author | Marcin Szamotulski <profunctor@pm.me> | 2021-08-08 17:19:06 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-08-08 17:19:06 +0200 |
| commit | 5bd9262466a0e71da4e84654a1906b76996e3692 (patch) | |
| tree | f8b6c000381a10b540cb27d7c9089158075a25db /haddock-api/src/Haddock/Backends/Xhtml/Themes.hs | |
| parent | be7ea34f16391d5e61326b117ecddeea2165fb86 (diff) | |
coot/multiple packages (ghc-9.2) (#1418)
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml/Themes.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Themes.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Themes.hs b/haddock-api/src/Haddock/Backends/Xhtml/Themes.hs index b1d64acd..08ef747a 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Themes.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Themes.hs @@ -17,6 +17,7 @@ module Haddock.Backends.Xhtml.Themes ( where import Haddock.Options +import Haddock.Backends.Xhtml.Types ( BaseURL, withBaseURL ) import Control.Monad (liftM) import Data.Char (toLower) @@ -176,13 +177,13 @@ cssFiles :: Themes -> [String] cssFiles ts = nub $ concatMap themeFiles ts -styleSheet :: Themes -> Html -styleSheet ts = toHtml $ zipWith mkLink rels ts +styleSheet :: BaseURL -> Themes -> Html +styleSheet base_url ts = toHtml $ zipWith mkLink rels ts where rels = "stylesheet" : repeat "alternate stylesheet" mkLink aRel t = thelink - ! [ href (themeHref t), rel aRel, thetype "text/css", + ! [ href (withBaseURL base_url (themeHref t)), rel aRel, thetype "text/css", XHtml.title (themeName t) ] << noHtml |