From c31dc425edf2ba3f354274520ab6a639464b4b9f Mon Sep 17 00:00:00 2001 From: Adrian Cochrane Date: Tue, 30 Jul 2019 19:02:54 +1200 Subject: [PATCH] Resolve relative link tags for caller. --- stylish-html-conduit/src/Data/HTML2CSS.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/stylish-html-conduit/src/Data/HTML2CSS.hs b/stylish-html-conduit/src/Data/HTML2CSS.hs index d2a55bf..05fba93 100644 --- a/stylish-html-conduit/src/Data/HTML2CSS.hs +++ b/stylish-html-conduit/src/Data/HTML2CSS.hs @@ -34,7 +34,7 @@ externalStylesForURL stylesheet testMedia html base loadURL = do externalStyles' testMedia html base loadURL = go $ linkedStyles' testMedia html where -- TODO parallelise loads go (link:links) = do - response <- loadURL $ link + response <- loadURL $ relativeTo link base rest <- go links return $ (relativeTo link base, response) : rest go [] = return [] -- 2.30.2