@@ -74,6 +74,7 @@ convertTag userdata t@(TagOpen "link" as) =
7474 return $ TagOpen "link" (("href",enc) : [(x,y) | (x,y) <- as, x /= "href"])
7575convertTag _ t = return t
7676
77+-- NOTE: This is really crude, it doesn't respect CSS comments.
7778cssURLs :: Maybe FilePath -> FilePath -> ByteString -> IO ByteString
7879cssURLs userdata d orig =
7980 case B.breakSubstring "url(" orig of