diff options
| author | Alan Pearce | 2014-10-19 17:12:51 +0100 |
|---|---|---|
| committer | Alan Pearce | 2014-10-19 17:12:51 +0100 |
| commit | e741d80aac6cc88ba7101585924d070a35583e5b (patch) | |
| tree | 4cf05e7c70d7d3f59e0e57e0500bf9129c349652 | |
| parent | 20fa6dcbf6cdb737155e1928455133ebbc0654bf (diff) | |
| download | microformats-e741d80aac6cc88ba7101585924d070a35583e5b.tar.lz microformats-e741d80aac6cc88ba7101585924d070a35583e5b.tar.zst microformats-e741d80aac6cc88ba7101585924d070a35583e5b.zip | |
Find the base URL only once
| -rw-r--r-- | src/microformats/parser.clj | 2 |
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)] |