about summary refs log tree commit diff stats
path: root/src
diff options
context:
space:
mode:
authorAlan Pearce2014-10-19 17:12:51 +0100
committerAlan Pearce2014-10-19 17:12:51 +0100
commite741d80aac6cc88ba7101585924d070a35583e5b (patch)
tree4cf05e7c70d7d3f59e0e57e0500bf9129c349652 /src
parent20fa6dcbf6cdb737155e1928455133ebbc0654bf (diff)
downloadmicroformats-e741d80aac6cc88ba7101585924d070a35583e5b.tar.lz
microformats-e741d80aac6cc88ba7101585924d070a35583e5b.tar.zst
microformats-e741d80aac6cc88ba7101585924d070a35583e5b.zip
Find the base URL only once
Diffstat (limited to 'src')
-rw-r--r--src/microformats/parser.clj2
1 files changed, 1 insertions, 1 deletions
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)]