From: Debian Haskell Group <pkg-haskell-maintainers@lists.alioth.debian.org>
Date: Sun, 3 Oct 2021 11:27:00 +0000 (+0100)
Subject: Remove hard-coded googleapis font URL
X-Git-Tag: archive/raspbian/8.8.4-3+rpi1~1^2~4
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=8d1a29730345ab111a0b3dbc9d1e0c4c647e364d;p=ghc.git

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
---

diff --git a/utils/haddock/haddock-api/src/Haddock/Backends/Xhtml.hs b/utils/haddock/haddock-api/src/Haddock/Backends/Xhtml.hs
index 9add4cae..26b2025e 100644
--- a/utils/haddock/haddock-api/src/Haddock/Backends/Xhtml.hs
+++ b/utils/haddock/haddock-api/src/Haddock/Backends/Xhtml.hs
@@ -127,13 +127,13 @@ headHtml docTitle themes mathjax_url =
     , thetitle << docTitle
     , styleSheet themes
     , thelink ! [ rel "stylesheet", thetype "text/css", href quickJumpCssFile] << noHtml
-    , thelink ! [ rel "stylesheet", thetype "text/css", href fontUrl] << noHtml
+    -- , thelink ! [ rel "stylesheet", thetype "text/css", href fontUrl] << noHtml
     , script ! [src haddockJsFile, emptyAttr "async", thetype "text/javascript"] << noHtml
     , script ! [thetype "text/x-mathjax-config"] << primHtml mjConf
     , 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: {"