File tree Expand file tree Collapse file tree 1 file changed +5
-3
lines changed Expand file tree Collapse file tree 1 file changed +5
-3
lines changed Original file line number Diff line number Diff line change @@ -157,7 +157,7 @@ Options:
157
157
(token (single-char #\t ) (value #t ))
158
158
(id (value #t ))
159
159
(force (single-char #\f ) (value #f ))
160
- (hard-delete? (value #t ))))
160
+ (hard-delete (value #f ))))
161
161
162
162
(define (print-user-delete-help program-name )
163
163
(format #t " \
@@ -187,7 +187,7 @@ Other options:
187
187
(token (option-ref options 'token #f ))
188
188
(id (option-ref options 'id #f ))
189
189
(force? (option-ref options 'force #f ))
190
- (hard-delete? (option-ref options 'hard-delete? 'undefined )))
190
+ (hard-delete? (option-ref options 'hard-delete #f )))
191
191
192
192
(when help-needed?
193
193
(print-user-delete-help program-name)
@@ -217,7 +217,9 @@ Other options:
217
217
#:token token)))
218
218
(gitlab-delete-user gitlab
219
219
id
220
- #:hard-delete? (string->boolean hard-delete?)))))
220
+ #:hard-delete? (if (equal? hard-delete? #f )
221
+ 'undefined
222
+ " true" )))))
221
223
222
224
223
225
You can’t perform that action at this time.
0 commit comments