From a7bdaa2b4814e7f77a08cec12b10fb0d4d58cab3 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 12 Sep 2024 02:16:10 +0100
Subject: command-line-tool: Import guile-filesystem as an extension.

This resolves the warning about importing (ice-9 filesystem) from the
host.

* ravanan/command-line-tool.scm: Import guile-filesystem from (gnu
packages guile-xyz).
(build-command-line-tool-script): Use with-extensions, not
with-imported-modules, to import guile-filesystem.
---
 ravanan/command-line-tool.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm
index 0c8c292..b512d42 100644
--- a/ravanan/command-line-tool.scm
+++ b/ravanan/command-line-tool.scm
@@ -33,6 +33,7 @@
   #:use-module (gcrypt base16)
   #:use-module (gcrypt hash)
   #:use-module ((gnu packages gnupg) #:select (guile-gcrypt))
+  #:use-module ((gnu packages guile-xyz) #:select (guile-filesystem))
   #:use-module ((gnu packages node) #:select (node))
   #:use-module (guix describe)
   #:use-module (guix derivations)
@@ -801,11 +802,10 @@ named @var{name} with @var{inputs} using tools from Guix manifest
                                                       (guix search-paths))
                                                     #:select? (match-lambda
                                                                 (('ravanan work . _) #t)
-                                                                ('(ice-9 filesystem) #t)
                                                                 (('guix . _) #t)
                                                                 (('json . _) #t)
                                                                 (_ #f)))
-        (with-extensions (list guile-gcrypt)
+        (with-extensions (list guile-filesystem guile-gcrypt)
           #~(begin
               (use-modules (ravanan work command-line-tool)
                            (ravanan work utils)
-- 
cgit v1.2.3