~ruther/guix-local: gnu: libnova: Use G-Expressions.

8f86cbd5e95dca6fa6795e05eb0b316219d0a3ce — Sharlatan Hellseher 2 years ago f74a8e8

gnu: libnova: Use G-Expressions.

* gnu/packages/astronomy.scm (libnova): Adjust package style by applying
G-Expressions and fix indention.
[arguments]<#:phases>: Remove trailing #f from lambda.

Change-Id: I63d239464fd3cb166449ef8904b5fd72326cb853

patch browse .tar.gz

1 files changed, 16 insertions(+), 16 deletions(-)

M gnu/packages/astronomy.scm

M gnu/packages/astronomy.scm => gnu/packages/astronomy.scm +16 -16

@@ 3053,24 3053,24 @@ packages for HST.")
     (name "libnova")
     (version "0.16")
     (source
-      (origin
-        (method git-fetch)
-        (uri (git-reference
-               (url "https://git.code.sf.net/p/libnova/libnova.git")
-               (commit (string-append "v" version))))
-        (file-name (git-file-name name version))
-        (sha256
-         (base32
-          "0icwylwkixihzni0kgl0j8dx3qhqvym6zv2hkw2dy6v9zvysrb1b"))))
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://git.code.sf.net/p/libnova/libnova.git")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32
+         "0icwylwkixihzni0kgl0j8dx3qhqvym6zv2hkw2dy6v9zvysrb1b"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'patch-git-version
-           (lambda _
-             (substitute* "./git-version-gen"
-               (("/bin/sh") (which "sh")))
-             #t)))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-git-version
+            (lambda _
+              (substitute* "./git-version-gen"
+                (("/bin/sh") (which "sh"))))))))
     (native-inputs
      (list autoconf automake libtool))
     (synopsis "Celestial mechanics, astrometry and astrodynamics library")