diff mbox series

[bug#60183] gnu: guile-png: Update to 0.3.0.

Message ID 871qowv8w1.fsf@gmail.com
State New
Headers show
Series [bug#60183] gnu: guile-png: Update to 0.3.0. | expand

Commit Message

Artyom V. Poptsov Dec. 18, 2022, 6:55 p.m. UTC 
Hello,

this patch updates Guile-PNG to 0.3.0.
- avp

Comments

Mathieu Othacehe Dec. 25, 2022, 4:11 p.m. UTC | #1 
> this patch updates Guile-PNG to 0.3.0.

Pushed, thanks!

Mathieu
diff mbox series

Patch

From c9db934860d914565ac5eaac8ce2d30c657b69cc Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Sun, 18 Dec 2022 21:54:22 +0300
Subject: [PATCH] gnu: guile-png: Update to 0.3.0.

* gnu/packages/guile-xyz.scm (guile-png): Update to 0.3.0.
  [arguments]: Patch tests to silence Guile-SMC logs.
---
 gnu/packages/guile-xyz.scm | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 9fc6344491..f16ec09ee3 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -3592,7 +3592,7 @@  (define-public guile-jtd
 (define-public guile-png
   (package
     (name "guile-png")
-    (version "0.2.0")
+    (version "0.3.0")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -3601,10 +3601,21 @@  (define-public guile-png
               (file-name (string-append name "-" version "-checkout"))
               (sha256
                (base32
-                "1nk81z2cf9fsyppq5ly0yjw7yvdk5qraf71in7ayzdkngphhfgfx"))))
+                "1lv2cjzgrr0yshqng96l6bnn8pjmljv8qcn4w3wldh97ns7qigds"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
+     `(#:make-flags '("GUILE_AUTO_COMPILE=0") ;to prevent guild warnings
+       #:phases
+       (modify-phases %standard-phases
+         ;; Guile-PNG tries to log parser messages to the syslog which is not
+         ;; available during the build.
+         (add-after 'unpack 'fix-tests
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (substitute* "tests/graphics.scm"
+               (("             \\(png graphics\\)\\)")
+                (string-append "             (png graphics)\n"
+                               "             (png fsm context))\n"
+                               "(log-clear-handlers!)"))))))))
     (native-inputs (list autoconf automake pkg-config texinfo))
     (inputs (list bash-minimal guile-3.0 guile-lib guile-zlib))
     (propagated-inputs (list guile-smc))
-- 
2.34.1