aboutsummaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
Diffstat (limited to 'guix')
-rw-r--r--guix/forge/klaus.scm15
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