diff options
| -rw-r--r-- | src/microformats/parser.clj | 2 | ||||
| -rw-r--r-- | test/microformats/parser_expectations.clj | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj index 9801515..573d3e2 100644 --- a/src/microformats/parser.clj +++ b/src/microformats/parser.clj @@ -157,7 +157,7 @@ (defn parse-rels "Parse rel attibutes of a set of HTML link elements" [elements] - (apply merge-with into (map parse-rel (select-rels elements)))) + (or (apply merge-with into (map parse-rel (select-rels elements))) {})) (defn parse "Parse a HTML string with microformats" diff --git a/test/microformats/parser_expectations.clj b/test/microformats/parser_expectations.clj index 742b8e7..d8b7225 100644 --- a/test/microformats/parser_expectations.clj +++ b/test/microformats/parser_expectations.clj @@ -99,3 +99,6 @@ (expect {:author ["http://example.com/a" "http://example.com/b"]} (parse-rels (html-snippet "<a rel=\"author\" href=\"http://example.com/a\">author a</a> <a rel=\"author\" href=\"http://example.com/b\">author b</a>"))) + +(expect {:items [] :rels {}} + (parse "")) |