From 04db71b6658c2acb88e84086df8604ad3df08fcd Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 2 Oct 2024 14:12:30 +0100
Subject: command-line-tool: Coerce coresMin expressions.

* ravanan/command-line-tool.scm (run-command-line-tool): Coerce
coresMin expressions.
---
 ravanan/command-line-tool.scm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm
index f093093..65b001e 100644
--- a/ravanan/command-line-tool.scm
+++ b/ravanan/command-line-tool.scm
@@ -438,10 +438,14 @@ path."
                                              (or (assoc-ref cwl "hints")
                                                  #())))
          (cpus (from-maybe
-                (maybe-let* ((cores-min (maybe-assoc-ref (find-requirement requirements
-                                                                           "ResourceRequirement")
-                                                         "coresMin")))
-                  (just (inexact->exact (ceiling (coerce-type cores-min 'number)))))
+                (maybe-bind (maybe-assoc-ref (find-requirement requirements
+                                                               "ResourceRequirement")
+                                             "coresMin")
+                            (compose just
+                                     inexact->exact
+                                     ceiling
+                                     (cut coerce-type <> 'number)
+                                     (cut coerce-expression-local <> inputs)))
                 1))
          (store-files-directory (script->store-files-directory script store))
          (store-data-file (script->store-data-file script store))
-- 
cgit v1.2.3