mirrors
/
cuirass
mirror of https://notabug.org/mthl/cuirass.git
1
0
Fork 0
Code Issues Releases Wiki Activity

http: Add DB argument to 'url-handler'. 

* src/cuirass/http.scm (not-found): Delete.
(url-handler): Add DB argument.
(run-cuirass-server): Likewise.  Pass it to 'run-server' STATE argument.
pull/3/head
Mathieu Lirzin 2016-10-28 19:38:11 +02:00
parent 3b72a158be
commit 5973db52c6
No known key found for this signature in database
GPG Key ID: 0ADEE10094604D37
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/cuirass/http.scm
View File

@ -58,18 +58,20 @@
(define (request-path-components request)
(split-and-decode-uri-path (uri-path (request-uri request))))
(define (not-found request)
(values (build-response #:code 404)
(string-append "Resource not found: "
(uri->string (request-uri request)))))
(define (url-handler request body)
(define (url-handler request body db)
(define* (respond response #:key body (db db))
(values response body db))
(match (request-path-components request)
(((or "jobsets" "specifications") . rest)
(values '((content-type . (application/json)))
(with-database db
(spec->json-string (car (db-get-specifications db))))))
(_ (not-found request))))
(respond '((content-type . (application/json)))
#:body (spec->json-string (car (db-get-specifications db)))))
(_
(respond (build-response #:code 404)
#:body (string-append "Resource not found: "
(uri->string (request-uri request)))))))
(define (run-cuirass-server)
(run-server url-handler))
(define (run-cuirass-server db)
(run-server url-handler
'http ;server implementation
'() ;implementation parameters
db)) ;state