From e741d80aac6cc88ba7101585924d070a35583e5b Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sun, 19 Oct 2014 17:12:51 +0100
Subject: Find the base URL only once

---
 src/microformats/parser.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj
index 9137eaa..e0e2310 100644
--- a/src/microformats/parser.clj
+++ b/src/microformats/parser.clj
@@ -403,7 +403,7 @@
 (defn parse
   "Parse a HTML string with microformats"
   ([html]
-     (let [document (some->> html to-node with-base-url)]
+     (let [document (to-node html)]
        (parse document (get-base-url document))))
   ([html base-url]
      (let [document (some->> html to-node first (with-base-url base-url) z/xml-zip)]
-- 
cgit 1.4.1