diff options
| author | Marius Bakke <marius@gnu.org> | 2020-11-30 20:00:47 +0100 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2020-12-01 22:30:52 +0100 |
| commit | 3cf19b83d634d7470b2478a671b0156c521ecbea (patch) | |
| tree | c1bac388363943a3e45c9909dc9334c219d14922 /gnu/services | |
| parent | 383c51ca0ff9c2f451a9ecf0baf4081005254f23 (diff) | |
| download | guix-3cf19b83d634d7470b2478a671b0156c521ecbea.tar.gz | |
services: MySQL: Fix indentation.
* gnu/services/databases.scm (mysql-upgrade-wrapper): Adjust indentation.
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/databases.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gnu/services/databases.scm b/gnu/services/databases.scm index 50dad298f6..d2dc5f0da8 100644 --- a/gnu/services/databases.scm +++ b/gnu/services/databases.scm @@ -576,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 |