From fd47a96c0bb0484a7ba8387596d62613883f8651 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Fri, 20 Feb 2009 11:23:22 +0100
Subject: subscribe-to-feed: Minor stylistic improvements.

---
 cljssss-g.clj | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/cljssss-g.clj b/cljssss-g.clj
index 5d56365..e79afa6 100644
--- a/cljssss-g.clj
+++ b/cljssss-g.clj
@@ -101,10 +101,7 @@
                                       ["SELECT id FROM feed WHERE uri=?" url]
                 id)
             (let [free-id (+ 1 (maximum-id "feed"))]
-              (sql/update-or-insert-values :feed
-                                           ["id = ?" free-id]
-                                           {:id free-id
-                                            :uri url})
+              (sql/insert-values :feed [:id :uri] [free-id url])
               free-id)))]
     (when maybe-id
       (fetch-feed maybe-id))
-- 
cgit v1.2.3