diff options
| -rw-r--r-- | guix/forge/klaus.scm | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/guix/forge/klaus.scm b/guix/forge/klaus.scm index 54b374f..12560ed 100644 --- a/guix/forge/klaus.scm +++ b/guix/forge/klaus.scm @@ -19,6 +19,7 @@ (define-module (forge klaus) #:use-module (forge gunicorn) + #:use-module (forge socket) #:use-module ((gnu packages check) #:select (python-nose python-pytest)) #:use-module ((gnu packages python-web) #:select (python-flask python-werkzeug)) @@ -121,15 +122,19 @@ routes using HTTP Digest Authentication.") @end itemize") (license license:isc))) -(define* (klaus-gunicorn-app repository-directory sockets - #:key site-name) - "Return a @code{<gunicorn-app>} object to deploy klaus on -@var{sockets}, a list of @code{<forge-ip-socket>} or -@code{<forge-unix-socket>} objects. +(define* (klaus-gunicorn-app repository-directory + #:key + (sockets (list (forge-unix-socket + (path "/var/run/gunicorn-klaus/socket")))) + site-name) + "Return a @code{<gunicorn-app>} object to deploy klaus. @var{repository-directory} is the path to the directory containing git repositories to serve. +@var{sockets} is a list of @code{<forge-ip-socket>} or +@code{<forge-unix-socket>} objects describing sockets to listen on. + @var{site-name} is the name of the klaus site to be displayed in the banner." (gunicorn-app |