From c67240467588bed6dd182416cff1618d8e169c1b Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Wed, 24 Jul 2013 19:56:52 +0200
Subject: Add assignment for stories

---
 pg-datastore.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'pg-datastore.lisp')

diff --git a/pg-datastore.lisp b/pg-datastore.lisp
index 7c25c33..317eca5 100644
--- a/pg-datastore.lisp
+++ b/pg-datastore.lisp
@@ -118,3 +118,9 @@
       (execute (:update type :set
                         'priority (max 1 (min next-priority max-priority))
                         :where (:= 'id id))))))
+
+(defmethod datastore-set-assignee
+    ((datastore pg-datastore) type id assignee)
+  (with-connection (connection-spec datastore)
+    (execute (:update type :set 'assignee assignee
+                      :where (:= 'id id)))))
-- 
cgit v1.2.3-54-g00ecf