From 16c845fbe5963f29c6b65991ef792ace84893673 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Mon, 15 Sep 2014 19:30:52 +0100
Subject: Parse an empty document correctly

---
 src/microformats/parser.clj               | 2 +-
 test/microformats/parser_expectations.clj | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

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 ""))
-- 
cgit 1.4.1