Skip to content

Commit cfe7349

Browse files
modules/gitlab/cli/user.scm: Fix '--hard-delete' option
* modules/gitlab/cli/user.scm: Fix '--hard-delete' option: Now it does not accept a value.
1 parent 703fd6c commit cfe7349

File tree

1 file changed

+5
-3
lines changed

1 file changed

+5
-3
lines changed

modules/gitlab/cli/user.scm

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -157,7 +157,7 @@ Options:
157157
(token (single-char #\t) (value #t))
158158
(id (value #t))
159159
(force (single-char #\f) (value #f))
160-
(hard-delete? (value #t))))
160+
(hard-delete (value #f))))
161161

162162
(define (print-user-delete-help program-name)
163163
(format #t "\
@@ -187,7 +187,7 @@ Other options:
187187
(token (option-ref options 'token #f))
188188
(id (option-ref options 'id #f))
189189
(force? (option-ref options 'force #f))
190-
(hard-delete? (option-ref options 'hard-delete? 'undefined)))
190+
(hard-delete? (option-ref options 'hard-delete #f)))
191191

192192
(when help-needed?
193193
(print-user-delete-help program-name)
@@ -217,7 +217,9 @@ Other options:
217217
#:token token)))
218218
(gitlab-delete-user gitlab
219219
id
220-
#:hard-delete? (string->boolean hard-delete?)))))
220+
#:hard-delete? (if (equal? hard-delete? #f)
221+
'undefined
222+
"true")))))
221223

222224

223225

0 commit comments

Comments
 (0)