projects
/
candle
/ commitdiff
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d1ff8c8
)
Fix typo in error message
author
Frank Duncan <frank@kank.net>
Sun, 12 Dec 2021 13:34:43 +0000
(07:34 -0600)
committer
Frank Duncan <frank@kank.net>
Sun, 12 Dec 2021 13:34:43 +0000
(07:34 -0600)
src/main/server.lisp
patch
|
blob
|
history
diff --git
a/src/main/server.lisp
b/src/main/server.lisp
index 41ec48232f9b3b40703a0b35f9728d3540a099fe..409a804417cf3ee0c3521ae58e2a7ce81cb46ec2 100644
(file)
--- a/
src/main/server.lisp
+++ b/
src/main/server.lisp
@@
-64,7
+64,7
@@
(defun delete-project (name)
(let
((project (find name *all-project* :test #'string= :key #'project-name)))
(defun delete-project (name)
(let
((project (find name *all-project* :test #'string= :key #'project-name)))
- (when (not project) (error "Project does not exist
s
"))
+ (when (not project) (error "Project does not exist"))
(sb-ext:delete-directory (project-dir project) :recursive t)
(mapcar #'nremove-job (find-job-by-project project))
(mapcar #'nremove-branch (find-branch-by-project project))
(sb-ext:delete-directory (project-dir project) :recursive t)
(mapcar #'nremove-job (find-job-by-project project))
(mapcar #'nremove-branch (find-branch-by-project project))
@@
-76,7
+76,7
@@
(defun project-branch-information (name)
(let
((project (find name *all-project* :test #'string= :key #'project-name)))
(defun project-branch-information (name)
(let
((project (find name *all-project* :test #'string= :key #'project-name)))
- (when (not project) (error "Project does not exist
s
"))
+ (when (not project) (error "Project does not exist"))
(mapcar
(lambda (branch)
(list
(mapcar
(lambda (branch)
(list
@@
-87,5
+87,5
@@
(defun project-job-information (name)
(let
((project (find name *all-project* :test #'string= :key #'project-name)))
(defun project-job-information (name)
(let
((project (find name *all-project* :test #'string= :key #'project-name)))
- (when (not project) (error "Project does not exist
s
"))
+ (when (not project) (error "Project does not exist"))
(mapcar #'job->job-information (find-job-by-project project))))
(mapcar #'job->job-information (find-job-by-project project))))