Subject: bug#46715: closed (Re: [PATCH] guix import: Fixing detection of Fortran files.)

From: [email-masked] (GNU bug Tracking System)
Date: Mon, 01 Mar 2021 21:48:02 +0000

Your bug report

#46715: [PATCH] guix import: Fixing detection of Fortran files.

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].

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

Subject: Re: [PATCH] guix import: Fixing detection of Fortran files.
From: Ricardo Wurmus <[email-masked]>
To: Mădălin Ionel Patrașcu<[email-masked]>
Cc: [email-masked]
Date: Mon, 01 Mar 2021 22:47:46 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Hi Mădălin,

Thanks!  I applied this with a few changes in the commit message.
(Commit 35814292b6.)

-- 
Ricardo

Subject: [PATCH] guix import: Fixing detection of Fortran files.
From: Mădălin Ionel Patrașcu<[email-masked]>
To: <[email-masked]>
Cc: [email-masked], Mădălin Ionel Patrașcu<[email-masked]>
Date: Tue, 23 Feb 2021 12:00:21 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

This fixes a bug whereby Guix importer considers files like .f.*
being Fortran's files.

(find-files dir "\\.f(90|95)?")

would consider a lot of files with an extension starting with f
being a Fortran file. The right way is to consider only files
ending with .f90 or .f95.

*guix/import/cran.scm: changing pattern of the detection for
Fortran's files to .f(90|95)$.

Co-authored-by: Ricardo Wurmus <[email-masked]>
---
 guix/import/cran.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/import/cran.scm b/guix/import/cran.scm
index e8caf080fd..dbc858cb84 100644
--- a/guix/import/cran.scm
+++ b/guix/import/cran.scm
@@ -361,7 +361,7 @@ empty list when the FIELD cannot be found."
 
 (define (directory-needs-fortran? dir)
   "Check if the directory DIR contains Fortran source files."
-  (match (find-files dir "\\.f(90|95)?")
+  (match (find-files dir "\\.f(90|95)$")
     (() #f)
     (_ #t)))
 
-- 
2.30.1