13/16: guix build: Validate that the file passed to ‘-m’ returns a manifest.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit c6050cce28cfcbdc4c74886595da07005d33e3b0
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Tue Nov 26 10:51:20 2024 +0100

    guix build: Validate that the file passed to ‘-m’ returns a manifest.
    
    * guix/scripts/build.scm (options->things-to-build)[ensure-manifest]:
    New procedure.
    Use it.
    
    Change-Id: If64c483d7079f441a296d5bd4e06e67f44cbb7bf
---
 guix/scripts/build.scm | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm
index 5c93dc78f8..d1368f7e48 100644
--- a/guix/scripts/build.scm
+++ b/guix/scripts/build.scm
@@ -629,6 +629,12 @@ values.")))))))))
       (for-each validate-type lst)
       lst))
 
+  (define (ensure-manifest x file)
+    (unless (manifest? x)
+      (raise (formatted-message (G_ "file '~a' does not return a manifest")
+                                file)))
+    x)
+
   (define system
     (or (assoc-ref opts 'system) (%current-system)))
 
@@ -701,9 +707,11 @@ values.")))))))))
           (loop tail 'regular
                 (append (map manifest-entry-item
                              (manifest-entries
-                              (load* manifest
-                                     (make-user-module '((guix profiles)
-                                                         (gnu))))))
+                              (ensure-manifest
+                               (load* manifest
+                                      (make-user-module '((guix profiles)
+                                                          (gnu))))
+                               manifest)))
                         result)))
          (('expression . str)
           (loop tail 'regular