From bc2b5ecd7be2741e0991e29b2527e027f5ab8f5c Mon Sep 17 00:00:00 2001
From: Nicolas Graves <ngraves@ngraves.fr>
Date: Tue, 8 Jul 2025 13:36:21 +0200
Subject: [PATCH] gnu: safeint: Improve style.

* gnu/packages/cpp.scm (safeint): Run guix style.
---
 gnu/packages/cpp.scm | 50 ++++++++++++++++++++++----------------------
 1 file changed, 25 insertions(+), 25 deletions(-)

diff --git a/gnu/packages/cpp.scm b/gnu/packages/cpp.scm
index aac96f96a7733263130085f4d5625bdd6024646c..bb825ed08baae23e3b78f33f559356e79079e424 100644
--- a/gnu/packages/cpp.scm
+++ b/gnu/packages/cpp.scm
@@ -3665,33 +3665,33 @@ getopt(), getopt_long() and getopt_long_only().")
   (package
     (name "safeint")
     (version "3.0.27")
-    (home-page "https://github.com/dcleblanc/SafeInt")
-    (source (origin
-              (method git-fetch)
-              (uri (git-reference
-                    (url home-page)
-                    (commit version)))
-              (file-name (git-file-name name version))
-              (sha256
-               (base32
-                "01d2dpdhyw3lghmamknb6g39w2gg0sv53pgxlrs2la8h694z6x7s"))))
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/dcleblanc/SafeInt")
+              (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "01d2dpdhyw3lghmamknb6g39w2gg0sv53pgxlrs2la8h694z6x7s"))))
     (build-system cmake-build-system)
     (arguments
-     (list #:phases #~(modify-phases %standard-phases
-                        (replace 'install
-                          (lambda _
-                            (let ((include-dir (string-append #$output
-                                                              "/include")))
-                              (with-directory-excursion "../source"
-                                (install-file "SafeInt.hpp" include-dir)
-                                (install-file "safe_math.h" include-dir)
-                                (install-file "safe_math_impl.h" include-dir)))))
-                        (add-after 'install 'install-doc
-                          (lambda _
-                            (let ((doc-dir (string-append #$output
-                                                          "/share/doc/safeint")))
-                              (with-directory-excursion "../source"
-                                (install-file "helpfile.md" doc-dir))))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'install
+            (lambda _
+              (let ((include-dir (string-append #$output "/include")))
+                (with-directory-excursion "../source"
+                  (install-file "SafeInt.hpp" include-dir)
+                  (install-file "safe_math.h" include-dir)
+                  (install-file "safe_math_impl.h" include-dir)))))
+          (add-after 'install 'install-doc
+            (lambda _
+              (let ((doc-dir (string-append #$output "/share/doc/safeint")))
+                (with-directory-excursion "../source"
+                  (install-file "helpfile.md" doc-dir))))))))
+    (home-page "https://github.com/dcleblanc/SafeInt")
     (synopsis "C and C++ library for managing integer overflows")
     (description
      "SafeInt is a class library for C++ that manages integer overflows.  It