Subject: bug#60574: closed (Re: bug#60574: [PATCH] gnu: Remove tegaki package leftovers.)

From: [email-masked] (GNU bug Tracking System)
Date: Sun, 08 Jan 2023 16:53:02 +0000

Your bug report

#60574: [PATCH] gnu: Remove tegaki package leftovers.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
60574: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=60574
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#60574: [PATCH] gnu: Remove tegaki package leftovers.
From: Mathieu Othacehe <[email-masked]>
To: [email-masked]
Cc: [email-masked]
Date: Sun, 08 Jan 2023 17:52:08 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

> Leftovers from ed3c97f53ef5d60f103b93d15ccce5db052bfad1.

Applied, thanks,

Mathieu

Subject: [PATCH] gnu: Remove tegaki package leftovers.
From: [email-masked]
To: [email-masked]
Cc: Bruno Victal <[email-masked]>
Date: Thu, 5 Jan 2023 12:38:23 +0000
List-Id: <debbugs-submit.debbugs.gnu.org>

From: Bruno Victal <[email-masked]>

Leftovers from ed3c97f53ef5d60f103b93d15ccce5db052bfad1.

* gnu/packages/languages.scm (tegaki-release-uri)
(remove-pre-compiled-files)
(remove-pre-compiled-files-modules): Delete variables.
---
 gnu/packages/language.scm | 23 -----------------------
 1 file changed, 23 deletions(-)

diff --git a/gnu/packages/language.scm b/gnu/packages/language.scm
index 937954a1ad..b29ed9c013 100644
--- a/gnu/packages/language.scm
+++ b/gnu/packages/language.scm
@@ -835,29 +835,6 @@ (define-public perl-text-german
 done by Gudrun Putze-Meier.")
     (license license:perl-license)))
 
-(define* (tegaki-release-uri proj version
-                             #:optional (ext "tar.gz"))
-  (string-append "https://github.com/tegaki/tegaki/releases/download"
-                 "/v" version "/" proj "-" version "." ext))
-
-(define remove-pre-compiled-files
-  (lambda exts
-    "Return snippet for removing pre-compiled files matching one of the
-extensions in EXTS."
-    `(begin (for-each delete-file
-                      (find-files "."
-                                  (lambda (name _)
-                                    (any (cut string-suffix? <> name)
-                                         (map (cut string-append "." <>)
-                                              ',exts)))))
-            #t)))
-
-;;; modules required for the above snippet
-(define remove-pre-compiled-files-modules
-  '((guix build utils)
-    (srfi srfi-1)
-    (srfi srfi-26)))
-
 (define-public link-grammar
   (package
     (name "link-grammar")

base-commit: dc7eb6f07ae982b4c9d083cfb10f72cb031c0424
-- 
2.38.1