diff options
Diffstat (limited to 'guix-data-service/web/render.scm')
-rw-r--r-- | guix-data-service/web/render.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/guix-data-service/web/render.scm b/guix-data-service/web/render.scm index eeaf99d..880035e 100644 --- a/guix-data-service/web/render.scm +++ b/guix-data-service/web/render.scm @@ -39,6 +39,7 @@ not-found unprocessable-entity created + no-content redirect)) (define file-mime-types @@ -167,6 +168,10 @@ (list (build-response #:code 201) "")) +(define (no-content) + (list (build-response #:code 204) + "")) + (define (redirect path) (let ((uri (build-uri 'http #:host (%config 'host) |