diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-11-02 21:54:04 +0100 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-11-03 00:20:27 +0100 |
| commit | 12d71ee098c3eb84a9a5dc2419bd37a3b9e55dd2 (patch) | |
| tree | 9c4170c7da0f4c5dc1aea171348da4a42801b571 | |
| parent | 5973db52c683a899ac8f1b517d6af14864f3a59b (diff) | |
| download | cuirass-12d71ee098c3eb84a9a5dc2419bd37a3b9e55dd2.tar cuirass-12d71ee098c3eb84a9a5dc2419bd37a3b9e55dd2.tar.gz | |
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.
| -rw-r--r-- | bin/cuirass.in | 10 | ||||
| -rw-r--r-- | src/cuirass.scm | 3 |
2 files changed, 9 insertions, 4 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in index ced9c54..a5a11b6 100644 --- a/bin/cuirass.in +++ b/bin/cuirass.in @@ -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)))))))))) diff --git a/src/cuirass.scm b/src/cuirass.scm index 35bea44..8d729b8 100644 --- a/src/cuirass.scm +++ b/src/cuirass.scm @@ -30,4 +30,5 @@ (for-each (λ (m) (module-use! i (resolve-interface m))) ;; Public modules. '((cuirass base) - (cuirass database))))) + (cuirass database) + (cuirass http))))) |