diff options
Diffstat (limited to 'pg-datastore.lisp')
-rw-r--r-- | pg-datastore.lisp | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/pg-datastore.lisp b/pg-datastore.lisp index 317eca5..39e2646 100644 --- a/pg-datastore.lisp +++ b/pg-datastore.lisp @@ -57,16 +57,19 @@ (defmethod datastore-get-all-stories ((datastore pg-datastore)) (with-connection (connection-spec datastore) - (query (:order-by (:select :* :from 'story) 'priority) :alists))) + (query (:order-by (:select :* (:as (:md5 'assignee) 'md5) + :from 'story) 'priority) :alists))) (defmethod datastore-get-story ((datastore pg-datastore) id) (with-connection (connection-spec datastore) - (append (query (:select :* :from 'story :where (:= 'id id)) :alist) + (append (query (:select :* (:as (:md5 'assignee) 'md5) :from 'story + :where (:= 'id id)) :alist) `((tasks . ,(datastore-get-tasks-for-story datastore id)))))) (defmethod datastore-get-tasks-for-story ((datastore pg-datastore) id) (with-connection (connection-spec datastore) - (query (:order-by (:select :* :from 'task :where (:= 'story-id id)) + (query (:order-by (:select :* (:as (:md5 'assignee) 'md5) :from 'task + :where (:= 'story-id id)) 'priority) :alists))) |