diff --git a/Text/HTML/SanitizeXSS.hs b/Text/HTML/SanitizeXSS.hs
index e2599b2..f283277 100644
--- a/Text/HTML/SanitizeXSS.hs
+++ b/Text/HTML/SanitizeXSS.hs
@@ -128,7 +128,7 @@ sanitaryAttributes = fromList (allowed_html_uri_attributes ++ acceptable_attribu
\\ (fromList svg_attr_val_allows_ref) -- extra unescaping not implemented
allowed_html_uri_attributes :: [Text]
-allowed_html_uri_attributes = ["href", "src", "cite", "action", "longdesc"]
+allowed_html_uri_attributes = ["href", "src", "srcset", "cite", "action", "longdesc"]
uri_attributes :: Set Text
uri_attributes = fromList $ allowed_html_uri_attributes ++ ["xlink:href", "xml:base"]
diff --git a/test/main.hs b/test/main.hs
index 40b9af5..b82562c 100644
--- a/test/main.hs
+++ b/test/main.hs
@@ -23,6 +23,12 @@ main = hspec $ do
test sanitizeBalance testHTML " safeanchor
Unbalanced
"
sanitized testHTML " safeanchor
Unbalanced
"
+ it "srcset" $ do
+ let allowed = "
"
+ sanitized allowed allowed
+ let bad = "
"
+ sanitized bad "
"
+
it "relativeURI" $ do
let testRelativeURI = "bar"
sanitized testRelativeURI testRelativeURI