nginx: Re-indent.

1 files changed, 31 insertions, 33 deletions

diff --git a/guix/forge/nginx.scm b/guix/forge/nginx.scm
index 518969c..abec390 100644
--- a/guix/forge/nginx.scm
+++ b/guix/forge/nginx.scm
@@ -140,26 +140,24 @@ specified by @var{config}."
   (match-record config <forge-nginx-configuration>
     (http-listen https-listen proxy-protocol-listen acme-state-directory acme-challenge-directory)
     (cons (nginx-server-configuration
-           (listen (list (nginx-socket->string http-listen)))
-           (locations
-            (list (nginx-location-configuration
-                   (uri "/.well-known/acme-challenge/")
-                   ;; Without a trailing slash, an alias of /var/foo
-                   ;; would lookup /bar at /var/foobar, not
-                   ;; /var/foo/bar. So, a trailing slash is
-                   ;; significant. Append it if not already
-                   ;; present. Likewise, the trailing slash in
-                   ;; "/.well-known/acme-challenge/" is also
-                   ;; significant.
-                   (body (list (string-append "alias "
-                                              (string-trim-right acme-challenge-directory #\/)
-                                              "/;"))))
-                  (nginx-location-configuration
-                   (uri "/")
-                   ;; HTTP Strict Transport Security (HSTS) header as
-                   ;; recommended by https://hstspreload.org
-                   (body (list "add_header Strict-Transport-Security \"max-age=63072000; includeSubdomains; preload\";"
-                               "return 301 https://$host$request_uri;"))))))
+            (listen (list (nginx-socket->string http-listen)))
+            (locations
+             (list (nginx-location-configuration
+                     (uri "/.well-known/acme-challenge/")
+                     ;; Without a trailing slash, an alias of /var/foo would
+                     ;; lookup /bar at /var/foobar, not /var/foo/bar. So, a
+                     ;; trailing slash is significant. Append it if not already
+                     ;; present. Likewise, the trailing slash in
+                     ;; "/.well-known/acme-challenge/" is also significant.
+                     (body (list (string-append "alias "
+                                                (string-trim-right acme-challenge-directory #\/)
+                                                "/;"))))
+                   (nginx-location-configuration
+                     (uri "/")
+                     ;; HTTP Strict Transport Security (HSTS) header as
+                     ;; recommended by https://hstspreload.org
+                     (body (list "add_header Strict-Transport-Security \"max-age=63072000; includeSubdomains; preload\";"
+                                 "return 301 https://$host$request_uri;"))))))
           (map (match-record-lambda <forge-nginx-server-configuration>
                  (server-name root locations index try-files anubis-uri-prefix raw-content)
                  (match server-name
@@ -208,16 +206,16 @@ forge-nginx service specified by @var{config}."
 
 (define forge-nginx-service-type
   (service-type
-   (name 'forge-nginx)
-   (description "Run the forge-nginx web server.")
-   (extensions (list (service-extension nginx-service-type
-                                        forge-nginx-server-blocks)
-                     (service-extension acme-service-type
-                                        forge-nginx-acme-certificates)))
-   (compose concatenate)
-   (extend (lambda (config server-blocks)
-             (forge-nginx-configuration
-              (inherit config)
-              (server-blocks (append (forge-nginx-configuration-server-blocks config)
-                                     server-blocks)))))
-   (default-value (forge-nginx-configuration))))
+    (name 'forge-nginx)
+    (description "Run the forge-nginx web server.")
+    (extensions (list (service-extension nginx-service-type
+                                         forge-nginx-server-blocks)
+                      (service-extension acme-service-type
+                                         forge-nginx-acme-certificates)))
+    (compose concatenate)
+    (extend (lambda (config server-blocks)
+              (forge-nginx-configuration
+               (inherit config)
+               (server-blocks (append (forge-nginx-configuration-server-blocks config)
+                                      server-blocks)))))
+    (default-value (forge-nginx-configuration))))