diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2018-05-28 20:53:00 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2018-05-28 20:53:13 +0200 |
| commit | 9d5115e52c4c42af8249d8eb6f0ad3b8030f7c8d (patch) | |
| tree | 3874790b285d3ef0817ea5f761a1c88a48a9070a /mulkcms-hunchentoot.lisp | |
| parent | 87d26e7b5b94bea662ffb23ef9cc9b6b9d849696 (diff) | |
Add Dockerfile.
The Dockerfile uses deploy (https://shinmera.github.io/deploy/) to
create a self-contained binary and packages it as a Docker image.
Diffstat (limited to 'mulkcms-hunchentoot.lisp')
| -rw-r--r-- | mulkcms-hunchentoot.lisp | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp index 4300871..4d7f3c1 100644 --- a/mulkcms-hunchentoot.lisp +++ b/mulkcms-hunchentoot.lisp @@ -75,5 +75,12 @@ :port *server-port* :address *server-address*)) (setq mulkcms::*authorization-page-handler* #'handle-authorization-page) - (hunchentoot:start *acceptor*)) + (hunchentoot:start *acceptor*) + *acceptor*) +(defun run-server () + (let ((acceptor (start-server))) + (unwind-protect + (loop + (sleep 86400)) + (stop acceptor :soft t)))) |