From ffba5d3e4895d5072a989762aea02a10be347d99 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 24 Feb 2009 21:59:24 +0100
Subject: Fix type hints.

---
 cljssss-g.clj | 7 ++++---
 1 file 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
-- 
cgit v1.2.3