diff options
Diffstat (limited to 'guix-web/render.scm')
| -rw-r--r-- | guix-web/render.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/guix-web/render.scm b/guix-web/render.scm index de5da7c..e4f8771 100644 --- a/guix-web/render.scm +++ b/guix-web/render.scm @@ -23,6 +23,8 @@ #:export (render-html render-json not-found + unprocessable-entity + created redirect)) (define (render-html sxml) @@ -40,6 +42,14 @@ (list (build-response #:code 404) (string-append "Resource not found: " (uri->string uri)))) +(define (unprocessable-entity) + (list (build-response #:code 422) + "")) + +(define (created) + (list (build-response #:code 201) + "")) + (define (redirect path) (let ((uri (build-uri 'http #:path (string-append |