From 47d205f9348695beef21f4e43ebee5cbdfefeee8 Mon Sep 17 00:00:00 2001 From: Debian Haskell Group Date: Sat, 24 Sep 2022 08:06:11 +0100 Subject: [PATCH] Remove hard-coded googleapis font URL Bug: https://github.com/haskell/haddock/issues/1211 Bug-Debian: https://bugs.debian.org/963690 Gbp-Pq: Name haddock-remove-googleapis-fonts --- utils/haddock/haddock-api/src/Haddock/Backends/Xhtml.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/utils/haddock/haddock-api/src/Haddock/Backends/Xhtml.hs b/utils/haddock/haddock-api/src/Haddock/Backends/Xhtml.hs index 1f41f6be..1a9818c2 100644 --- a/utils/haddock/haddock-api/src/Haddock/Backends/Xhtml.hs +++ b/utils/haddock/haddock-api/src/Haddock/Backends/Xhtml.hs @@ -137,7 +137,7 @@ headHtml docTitle themes mathjax_url base_url = , thetype "text/css" , href (withBaseURL base_url quickJumpCssFile) ] << noHtml - , thelink ! [ rel "stylesheet", thetype "text/css", href fontUrl] << noHtml + -- , thelink ! [ rel "stylesheet", thetype "text/css", href fontUrl] << noHtml , script ! [ src (withBaseURL base_url haddockJsFile) , emptyAttr "async" , thetype "text/javascript" ] @@ -146,7 +146,7 @@ headHtml docTitle themes mathjax_url base_url = , script ! [src mjUrl, thetype "text/javascript"] << noHtml ] where - fontUrl = "https://fonts.googleapis.com/css?family=PT+Sans:400,400i,700" + -- fontUrl = "https://fonts.googleapis.com/css?family=PT+Sans:400,400i,700" mjUrl = fromMaybe "https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js?config=TeX-AMS-MML_HTMLorMML" mathjax_url mjConf = unwords [ "MathJax.Hub.Config({" , "tex2jax: {" -- 2.30.2