@@ -121,8 +121,12 @@ cssURLs userdata d orig =
121121 let url = toString
122122 $ case B.take 1 u of
123123 "\"" -> B.takeWhile (/='"') $ B.drop 1 u
124+ "'" -> B.takeWhile (/='\'') $ B.drop 1 u
124125 _ -> u
125− (raw, mime) <- getRaw userdata "" (d </> url)
126+ let url' = if isAbsoluteURI url
127+ then url
128+ else d </> url
129+ (raw, mime) <- getRaw userdata "" url'
126130 rest <- cssURLs userdata d v
127131 let enc = "data:" `B.append` fromString mime `B.append`
128132 ";base64," `B.append` (encode raw)