diff options
Diffstat (limited to 'gnu/services/databases.scm')
-rw-r--r-- | gnu/services/databases.scm | 22 |
1 files changed, 9 insertions, 13 deletions
diff --git a/gnu/services/databases.scm b/gnu/services/databases.scm index 60b31e0373..d2dc5f0da8 100644 --- a/gnu/services/databases.scm +++ b/gnu/services/databases.scm @@ -38,15 +38,13 @@ #:use-module (guix gexp) #:use-module (srfi srfi-1) #:use-module (ice-9 match) - #:export (<postgresql-config-file> - postgresql-config-file + #:export (postgresql-config-file postgresql-config-file? postgresql-config-file-log-destination postgresql-config-file-hba-file postgresql-config-file-ident-file postgresql-config-file-extra-config - <postgresql-configuration> postgresql-configuration postgresql-configuration? postgresql-configuration-postgresql @@ -59,7 +57,6 @@ postgresql-service-type memcached-service-type - <memcached-configuration> memcached-configuration memcached-configuration? memcached-configuration-memecached @@ -68,7 +65,6 @@ memcached-configuration-udp-port memcached-configuration-additional-options - <mongodb-configuration> mongodb-configuration mongodb-configuration? mongodb-configuration-mongodb @@ -580,14 +576,14 @@ FLUSH PRIVILEGES; ;; The socket is ready! (execl mysql-upgrade mysql-upgrade (string-append "--socket=" #$socket-file)))) - (lambda args - (if (< i timeout) - (begin - (sleep 1) - (loop (+ 1 i))) - ;; No luck, give up. - (throw 'timeout-error - "MySQL server did not appear in time!")))))))))) + (lambda args + (if (< i timeout) + (begin + (sleep 1) + (loop (+ 1 i))) + ;; No luck, give up. + (throw 'timeout-error + "MySQL server did not appear in time!")))))))))) (define (mysql-upgrade-shepherd-service config) (list (shepherd-service |