From 45584b837bb987560ac9c9c8522e149908bde33a Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 24 Apr 2020 20:32:42 +1200
Subject: [PATCH] Drop legacy html2css parsing functions.

---
 xml-conduit-stylist/src/Data/HTML2CSS.hs | 37 ------------------------
 1 file changed, 37 deletions(-)

diff --git a/xml-conduit-stylist/src/Data/HTML2CSS.hs b/xml-conduit-stylist/src/Data/HTML2CSS.hs
index f7fddac..2629635 100644
--- a/xml-conduit-stylist/src/Data/HTML2CSS.hs
+++ b/xml-conduit-stylist/src/Data/HTML2CSS.hs
@@ -1,7 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 -- | Bindings from `xml-conduit` to `haskell-stylist`.
 module Data.HTML2CSS(
-        externalStyles, externalStylesForURL, internalStyles, internalStylesForURL, -- legacy
         html2css, cssPriorityAgent, cssPriorityUser, cssPriorityAuthor, -- parsing
         traverseStyles, traversePrepopulatedStyles, traverseStyles', elToStylish -- application
     ) where
@@ -53,42 +52,6 @@ parseMediaQuery attrs
     | Just text <- "media" `M.lookup` attrs = Query.parse' (tokenize text) []
     | otherwise = []
 
----- Parsing (legacy)
--- | LEGACY: Extract relative links to external stylesheets.
-externalStyles :: StyleSheet s => s -> (M.Map XML.Name Txt.Text -> Bool) ->
-        XML.Element -> (URI -> IO Txt.Text) -> IO s
-externalStyles a b c d = externalStylesForURL a b c nullURI d
--- | LEGACY: Extract absolutized links to external stylesheets.
-externalStylesForURL stylesheet testMedia html base loadURL = do
-    css <- externalStyles' testMedia html base loadURL
-    return $ foldl (\a (b, c) -> parseForURL a b c) (cssPriorityAuthor stylesheet) css
-externalStyles' testMedia html base loadURL = go $ linkedStyles' testMedia html
-    where -- TODO parallelise loads
-        go (link:links) = do
-            response <- loadURL $ relativeTo link base
-            rest <- go links
-            return $ (relativeTo link base, response) : rest
-        go [] = return []
-
-linkedStyles' testMedia (XML.Element (XML.Name "link" _ _) attrs _)
-    | Just link <- "href" `M.lookup` attrs,
-        Just "stylesheet" <- "rel" `M.lookup` attrs,
-        testMedia attrs,
-        Just uri <- parseURIReference $ Txt.unpack link = [uri]
-linkedStyles' testMedia (XML.Element _ _ children) =
-    concat [linkedStyles' testMedia el | XML.NodeElement el <- children]
-
--- | LEGACY: Extract internally embedded CSS stylesheets.
-internalStyles a b c = internalStylesForURL a b nullURI c
--- | LEGACY: Extract internally embedded CSS stylesheets, with absolutized URLs.
-internalStylesForURL testMedia stylesheet base html =
-    foldl (\s -> parseForURL s base) (cssPriorityAuthor stylesheet) $
-        internalStyles' testMedia html
-internalStyles' testMedia (XML.Element (XML.Name "style"_ _) attrs children)
-    | testMedia attrs = [strContent children]
-internalStyles' testMedia (XML.Element _ _ children) =
-    concat [internalStyles' testMedia el | XML.NodeElement el <- children]
-
 
 strContent :: [XML.Node] -> Txt.Text
 strContent (XML.NodeContent text : rest) = text `Txt.append` strContent rest
-- 
2.30.2