Update package

1 files changed, 21 insertions, 33 deletions

diff --git a/vkraus/packages/disfluid.scm b/vkraus/packages/disfluid.scm
index 8cf6dec..6ef4066 100644
--- a/vkraus/packages/disfluid.scm
+++ b/vkraus/packages/disfluid.scm
@@ -35,17 +35,17 @@
 (define-public disfluid
   (package
     (name "disfluid")
-    (version "0.0.4-76-g5ecfa87")
+    (version "0.0.4-77-g66e9d84")
     (source
       (origin
         (method git-fetch)
         (uri (git-reference
                (url "https://labo.planete-kraus.eu/disfluid.git")
                (commit
-                 "5ecfa87d6089a8a6ada4a1927b4e933756e79c7f")))
+                 "66e9d84aa0a20b4709e9aac13094fb4d6bc42851")))
         (sha256
           (base32
-            "1g5a8zzmscm19ivxskwsl1syv900rllbkjq72imp8h3qvjbww7g7"))))
+            "0h0wklla13m7w5yg1g5wdl5q0n9vmw9kfafcarlwgzsnh8i77cr3"))))
     (build-system gnu-build-system)
     (arguments
       `(#:phases
@@ -55,31 +55,19 @@
             'unpack
             'fix-mtime
             (lambda _
-              (use-modules (ice-9 ftw))
-              (let ((disfluid-commit-date 1665915688))
-                (let ((enter? (lambda (name stat result) #t))
-                      (leaf (lambda (name stat result)
-                              (utime name
-                                     disfluid-commit-date
-                                     disfluid-commit-date)))
-                      (down (lambda (name stat result) result))
-                      (up (lambda (name stat result) result))
-                      (skip (lambda (name stat result) result))
-                      (error (lambda (name stat errno result) result)))
-                  (file-system-fold
-                    enter?
-                    leaf
-                    down
-                    up
-                    skip
-                    error
-                    #t
-                    ".")))))
+              (let ((disfluid-mtimes
+                      '(("doc/disfluid.texi" . 1665915688))))
+                (for-each
+                  (lambda (fix-mtime)
+                    (utime (car fix-mtime)
+                           (cdr fix-mtime)
+                           (cdr fix-mtime)))
+                  disfluid-mtimes))))
           (add-before
             'bootstrap
             'fix-hall.scm
             (lambda _
-              (let ((disfluid-version "0.0.4-76-g5ecfa87"))
+              (let ((disfluid-version "0.0.4-77-g66e9d84"))
                 (substitute*
                   "hall.scm"
                   (("SNAPSHOT") disfluid-version)))))
@@ -177,15 +165,15 @@
                           "DISTCHECK_CONFIGURE_FLAGS=SHELL=~a"
                           (search-input-file inputs "/bin/bash"))))
               (copy-file
-                "disfluid-0.0.4-76-g5ecfa87.tar.gz"
-                "/tmp/disfluid-0.0.4-76-g5ecfa87.tar.gz")
+                "disfluid-0.0.4-77-g66e9d84.tar.gz"
+                "/tmp/disfluid-0.0.4-77-g66e9d84.tar.gz")
               (with-directory-excursion
                 "/tmp"
                 (invoke
                   "tar"
                   "xf"
-                  "disfluid-0.0.4-76-g5ecfa87.tar.gz")
-                (delete-file "disfluid-0.0.4-76-g5ecfa87.tar.gz")
+                  "disfluid-0.0.4-77-g66e9d84.tar.gz")
+                (delete-file "disfluid-0.0.4-77-g66e9d84.tar.gz")
                 (invoke
                   "tar"
                   "--sort=name"
@@ -195,11 +183,11 @@
                   "--numeric-owner"
                   "--pax-option=exthdr.name=%d/PaxHeaders/%f,delete=atime,delete=ctime"
                   "-cf"
-                  "disfluid-0.0.4-76-g5ecfa87.tar.gz"
-                  "disfluid-0.0.4-76-g5ecfa87"))
+                  "disfluid-0.0.4-77-g66e9d84.tar.gz"
+                  "disfluid-0.0.4-77-g66e9d84"))
               (copy-file
-                "/tmp/disfluid-0.0.4-76-g5ecfa87.tar.gz"
-                "disfluid-0.0.4-76-g5ecfa87.tar.gz")))
+                "/tmp/disfluid-0.0.4-77-g66e9d84.tar.gz"
+                "disfluid-0.0.4-77-g66e9d84.tar.gz")))
           (add-after
             'install
             'install-complete-corresponding-source
@@ -207,7 +195,7 @@
               (let ((out (assoc-ref outputs "out")))
                 (mkdir-p (string-append out "/share/disfluid"))
                 (copy-file
-                  "disfluid-0.0.4-76-g5ecfa87.tar.gz"
+                  "disfluid-0.0.4-77-g66e9d84.tar.gz"
                   (string-append
                     out
                     "/share/disfluid/complete-corresponding-source.tar.gz"))))))))