about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAlan Pearce2014-10-19 17:12:51 +0100
committerAlan Pearce2014-10-19 17:12:51 +0100
commite741d80aac6cc88ba7101585924d070a35583e5b (patch)
tree4cf05e7c70d7d3f59e0e57e0500bf9129c349652
parent20fa6dcbf6cdb737155e1928455133ebbc0654bf (diff)
downloadmicroformats-e741d80aac6cc88ba7101585924d070a35583e5b.tar.xz
microformats-e741d80aac6cc88ba7101585924d070a35583e5b.zip
Find the base URL only once
-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 @@
403(defn parse 403(defn parse
404 "Parse a HTML string with microformats" 404 "Parse a HTML string with microformats"
405 ([html] 405 ([html]
406 (let [document (some->> html to-node with-base-url)] 406 (let [document (to-node html)]
407 (parse document (get-base-url document)))) 407 (parse document (get-base-url document))))
408 ([html base-url] 408 ([html base-url]
409 (let [document (some->> html to-node first (with-base-url base-url) z/xml-zip)] 409 (let [document (some->> html to-node first (with-base-url base-url) z/xml-zip)]