From 010336a80acfe2766acea1076ea29ebf8e42966b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 11 Sep 2024 17:58:38 +0100
Subject: command-line-tool: Return maybe monad from maybe-bind.

* ravanan/command-line-tool.scm (build-command-line-tool-script):
Wrap result of files-to-stage in a maybe monad.
---
 ravanan/command-line-tool.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm
index 993715b..0021bcf 100644
--- a/ravanan/command-line-tool.scm
+++ b/ravanan/command-line-tool.scm
@@ -912,7 +912,7 @@ named @var{name} with @var{inputs} using tools from Guix manifest
                                       (maybe-bind
                                        (find-requirement requirements
                                                          "InitialWorkDirRequirement")
-                                       files-to-stage)
+                                       (compose just files-to-stage))
                                       (list)))
                              ;; Actually run the command.
                              #$run-command-gexp
-- 
cgit v1.2.3