mirror of https://notabug.org/mthl/cuirass.git
cuirass: Run HTTP server.
* src/cuirass.scm: Re-export (cuirass http) module. * bin/cuirass.in (main): Run HTTP server and move the 'process-specs' loop in another thread.pull/3/head
parent
5973db52c6
commit
12d71ee098
|
@ -85,6 +85,10 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
|
|||
new-specs)))
|
||||
(if one-shot?
|
||||
(process-specs db (db-get-specifications db))
|
||||
(while #t
|
||||
(process-specs db (db-get-specifications db))
|
||||
(sleep interval))))))))))
|
||||
(begin
|
||||
(call-with-new-thread
|
||||
(λ ()
|
||||
(while #t
|
||||
(process-specs db (db-get-specifications db))
|
||||
(sleep interval))))
|
||||
(run-cuirass-server db))))))))))
|
||||
|
|
|
@ -30,4 +30,5 @@
|
|||
(for-each (λ (m) (module-use! i (resolve-interface m)))
|
||||
;; Public modules.
|
||||
'((cuirass base)
|
||||
(cuirass database)))))
|
||||
(cuirass database)
|
||||
(cuirass http)))))
|
||||
|
|
Loading…
Reference in New Issue