cgit: Re-indent.

1 files changed, 43 insertions, 43 deletions

diff --git a/guix/forge/cgit.scm b/guix/forge/cgit.scm
index 0956eb6..923d718 100644
--- a/guix/forge/cgit.scm
+++ b/guix/forge/cgit.scm
@@ -118,9 +118,9 @@
                                "tar.xz" "tar.zst" "zip")))
     (for-each (lambda (snapshot)
                 (unless (member snapshot valid-snapshots)
-                  (leave (G_ "Snapshot ~a is not one of ~s.~%"
-                             snapshot
-                             valid-snapshots))))
+                  (leave (G_ "Snapshot ~a is not one of ~s.~%")
+                         snapshot
+                         valid-snapshots)))
               snapshots)
     snapshots))
 
@@ -236,21 +236,21 @@ configured in @var{config}."
                                      (name "CGIT_CONFIG")
                                      (value cgitrc))))
        (mappings (list (file-system-mapping
-                        (source repository-directory)
-                        (target source))
+                         (source repository-directory)
+                         (target source))
                        (file-system-mapping
-                        (source cgit)
-                        (target source))
+                         (source cgit)
+                         (target source))
                        (file-system-mapping
-                        (source cgitrc)
-                        (target source))
+                         (source cgitrc)
+                         (target source))
                        (file-system-mapping
-                        (source (file-append git "/libexec/git-core/git-http-backend"))
-                        (target source))))))))
+                         (source (file-append git "/libexec/git-core/git-http-backend"))
+                         (target source))))))))
 
 (define cgit-nginx-server-block
   (match-record-lambda <cgit-configuration>
-      (cgit git server-name socket repository-directory)
+    (cgit git server-name socket repository-directory)
     (nginx-server-configuration
      (server-name (list server-name))
      ;; cgit static files
@@ -260,39 +260,39 @@ configured in @var{config}."
       (list
        ;; git-http-backend for the smart HTTP protocol
        (nginx-location-configuration
-        (uri "~ ^/.*/(HEAD|info/refs|git-receive-pack|git-upload-pack).*$")
-        (body (list "fastcgi_param SCRIPT_FILENAME "
-                    (file-append git "/libexec/git-core/git-http-backend;")
-                    (string-append "fastcgi_param GIT_PROJECT_ROOT "
-                                   repository-directory
-                                   ";")
-                    "fastcgi_param GIT_HTTP_EXPORT_ALL yes;"
-                    "fastcgi_param PATH_INFO $uri;"
-                    "fastcgi_param QUERY_STRING $query_string;"
-                    "fastcgi_param REQUEST_METHOD $request_method;"
-                    "fastcgi_param CONTENT_TYPE $content_type;"
-                    (string-append "fastcgi_pass "
-                                   (nginx-socket->string socket)
-                                   ";"))))
+         (uri "~ ^/.*/(HEAD|info/refs|git-receive-pack|git-upload-pack).*$")
+         (body (list "fastcgi_param SCRIPT_FILENAME "
+                     (file-append git "/libexec/git-core/git-http-backend;")
+                     (string-append "fastcgi_param GIT_PROJECT_ROOT "
+                                    repository-directory
+                                    ";")
+                     "fastcgi_param GIT_HTTP_EXPORT_ALL yes;"
+                     "fastcgi_param PATH_INFO $uri;"
+                     "fastcgi_param QUERY_STRING $query_string;"
+                     "fastcgi_param REQUEST_METHOD $request_method;"
+                     "fastcgi_param CONTENT_TYPE $content_type;"
+                     (string-append "fastcgi_pass "
+                                    (nginx-socket->string socket)
+                                    ";"))))
        ;; cgit web interface
        (nginx-location-configuration
-        (uri "@cgit")
-        (body (list
-               #~(string-append "fastcgi_param SCRIPT_FILENAME "
-                                #$(file-append cgit "/lib/cgit/cgit.cgi")
-                                ";")
-               "fastcgi_param PATH_INFO $uri;"
-               "fastcgi_param QUERY_STRING $query_string;"
-               "fastcgi_param HTTP_HOST $server_name;"
-               (string-append "fastcgi_pass "
-                              (nginx-socket->string socket)
-                              ";")))))))))
+         (uri "@cgit")
+         (body (list
+                #~(string-append "fastcgi_param SCRIPT_FILENAME "
+                                 #$(file-append cgit "/lib/cgit/cgit.cgi")
+                                 ";")
+                "fastcgi_param PATH_INFO $uri;"
+                "fastcgi_param QUERY_STRING $query_string;"
+                "fastcgi_param HTTP_HOST $server_name;"
+                (string-append "fastcgi_pass "
+                               (nginx-socket->string socket)
+                               ";")))))))))
 
 (define cgit-service-type
   (service-type
-   (name 'cgit)
-   (description "Run cgit.")
-   (extensions (list (service-extension fcgiwrap-service-type
-                                        (compose list cgit-fcgiwrap-instance))
-                     (service-extension forge-nginx-service-type
-                                        (compose list cgit-nginx-server-block))))))
+    (name 'cgit)
+    (description "Run cgit.")
+    (extensions (list (service-extension fcgiwrap-service-type
+                                         (compose list cgit-fcgiwrap-instance))
+                      (service-extension forge-nginx-service-type
+                                         (compose list cgit-nginx-server-block))))))