Include projectname in job output

[candle] / src / main / server.lisp

diff --git a/src/main/server.lisp b/src/main/server.lisp
index 320ffbda285c2dcfad6da964243779ce155de0ed..3df97f820b7236be8543f1d75680b4a3d496acdc 100644 (file)
--- a/src/main/server.lisp
+++ b/src/main/server.lisp
@@ -102,7 +102,7 @@
   (nremove-project project)))
 
 (defun job->job-information (job)
- (list (job-sha job) (job-status job) (job-create-date job)))
+ (list (project-name (job-project job)) (job-sha job) (job-status job) (job-create-date job)))
 
 (defun project-branch-information (name)
  (let