diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-02-20 11:23:22 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-02-20 11:23:22 +0100 |
| commit | fd47a96c0bb0484a7ba8387596d62613883f8651 (patch) | |
| tree | 1938b24ba08baa6e17e59f276598e96a07fa1105 | |
| parent | ef6ea9ef55ae44d8c7e97b32b89d3ede4c718055 (diff) | |
subscribe-to-feed: Minor stylistic improvements.
| -rw-r--r-- | cljssss-g.clj | 5 |
1 files changed, 1 insertions, 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)) |