From dede39452f9488002daa1b402eed8d25aa88994f Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 10 Apr 2013 10:22:00 -0700
Subject: [PATCH] Added comment/todo to SelfContained.
---
src/Text/Pandoc/SelfContained.hs | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/Text/Pandoc/SelfContained.hs b/src/Text/Pandoc/SelfContained.hs
index 01e03c66a..c4613992a 100644
--- a/src/Text/Pandoc/SelfContained.hs
+++ b/src/Text/Pandoc/SelfContained.hs
@@ -74,6 +74,7 @@ convertTag userdata t@(TagOpen "link" as) =
return $ TagOpen "link" (("href",enc) : [(x,y) | (x,y) <- as, x /= "href"])
convertTag _ t = return t
+-- NOTE: This is really crude, it doesn't respect CSS comments.
cssURLs :: Maybe FilePath -> FilePath -> ByteString -> IO ByteString
cssURLs userdata d orig =
case B.breakSubstring "url(" orig of