diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-02-24 21:59:24 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-02-24 21:59:24 +0100 |
| commit | ffba5d3e4895d5072a989762aea02a10be347d99 (patch) | |
| tree | 28aaa17ef611ca1639dad37cc1836bf45ed6df9e | |
| parent | 557d48217ed13fe34cfef6e8b8e03699856d82d1 (diff) | |
Fix type hints.
| -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 |