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.

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))))))))))

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)))))