From ab395a49d73f8dca0dc9fd7f7e5a7f55985079a0 Mon Sep 17 00:00:00 2001 From: Aaron Mueller Date: Tue, 28 Jan 2014 14:58:11 +0100 Subject: [PATCH] Fix the problem with not executing lazy sequences See http://stackoverflow.com/questions/21387021/let-does-not-execute-the-second-expression-in-the-body for more information. --- src/ldview/models/entry.clj | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/ldview/models/entry.clj b/src/ldview/models/entry.clj index c747254..56d2424 100644 --- a/src/ldview/models/entry.clj +++ b/src/ldview/models/entry.clj @@ -22,12 +22,11 @@ (let [username (user/unique-user (:author fields)) competition-id (:id (competition/latest))] (if-not (exists? (:ld_uid fields)) - (insert entries (values { - :ld_uid (:ld_uid fields) + (insert entries (values {:ld_uid (:ld_uid fields) :title (:title fields) :description (:description fields) :type (:type fields) :user_id (:id username) :competition_id competition-id}))) - (for [link (:links fields)] + (doseq [link (:links fields)] (source/create! (:id (by-ld-uid (:ld_uid fields))) (:url link) (:title link)))))