07/10: services: zabbix-frontend: Adjust indentation.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit 8fa6f975d4bb87b3d177722221e4db4263d8b5f9
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Fri Jan 28 19:15:13 2022 +0100

    services: zabbix-frontend: Adjust indentation.
    
    * gnu/services/monitoring.scm (zabbix-front-end-activation): Reindent.
---
 gnu/services/monitoring.scm | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/gnu/services/monitoring.scm b/gnu/services/monitoring.scm
index 428371f2cf..a3955808e9 100644
--- a/gnu/services/monitoring.scm
+++ b/gnu/services/monitoring.scm
@@ -622,28 +622,28 @@ $DB['PORT']     = '" (number->string db-port) "';
 $DB['DATABASE'] = '" db-name "';
 $DB['USER']     = '" db-user "';
 $DB['PASSWORD'] = " (let ((file (location-file %location))
-                           (line (location-line %location))
-                           (column (location-column %location)))
-                       (if (string-null? db-password)
-                           (if (string-null? db-secret-file)
-                               (raise (make-compound-condition
-                                       (condition
-                                        (&message
-                                         (message
-                                          (format #f "no '~A' or '~A' field in 
your '~A' record"
-                                                  'db-secret-file 'db-password
-                                                  
'zabbix-front-end-configuration))))
-                                       (condition
-                                        (&error-location
-                                         (location %location)))))
-                               (string-append "trim(file_get_contents('"
-                                              db-secret-file "'));\n"))
-                           (begin
-                             (display-hint (format #f (G_ "~a:~a:~a: ~a:
+                          (line (location-line %location))
+                          (column (location-column %location)))
+                      (if (string-null? db-password)
+                          (if (string-null? db-secret-file)
+                              (raise (make-compound-condition
+                                      (condition
+                                       (&message
+                                        (message
+                                         (format #f "no '~A' or '~A' field in 
your '~A' record"
+                                                 'db-secret-file 'db-password
+                                                 
'zabbix-front-end-configuration))))
+                                      (condition
+                                       (&error-location
+                                        (location %location)))))
+                              (string-append "trim(file_get_contents('"
+                                             db-secret-file "'));\n"))
+                          (begin
+                            (display-hint (format #f (G_ "~a:~a:~a: ~a:
 Consider using @code{db-secret-file} instead of @code{db-password} for better
 security.") file line column 'zabbix-front-end-configuration))
-                             (format #f "'~a';~%" db-password))))
-"
+                            (format #f "'~a';~%" db-password))))
+                     "
 // Schema name. Used for IBM DB2 and PostgreSQL.
 $DB['SCHEMA'] = '';