diff options
| -rw-r--r-- | cljssss-g.clj | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/cljssss-g.clj b/cljssss-g.clj index b61b84b..55e7e71 100644 --- a/cljssss-g.clj +++ b/cljssss-g.clj @@ -145,8 +145,9 @@ (let [uri (sql/with-query-results [{uri :uri}] ["SELECT uri FROM feed WHERE id = ?" id] uri), - feed #^SyndFeed (.build (new SyndFeedInput) - (new XmlReader (new URL uri)))] + #^SyndFeed + feed (.build (new SyndFeedInput) + (new XmlReader (new URL uri)))] (sql/transaction (sql/update-values :feed ["id = ?" id] @@ -157,7 +158,7 @@ :title (trim-nil (.getTitle feed)) :subtitle (trim-nil (.getDescription feed)) :updated (.getPublishedDate feed)}) - (doseq [entry #^SyndEntry (.getEntries feed)] + (doseq [#^SyndEntry entry (.getEntries feed)] (sql/with-query-results [{potential-entry-id :id}] ["SELECT id FROM entry WHERE iri = ?" (.getUri entry)] (let [entry-id |