diff mbox series

[bug#77093,rust-team,v2,12/17] scripts: import: Skip existing definition for ‘--insert’ option.

Message ID bd80b3049f066679194380a52f91feb574b2b46e.1742306960.git.hako@ultrarare.space
State New
Headers
Series [bug#77093,rust-team,v2,01/17] build/cargo: Pass ‘--offline’ to cargo. |

Commit Message

Hilton Chain March 18, 2025, 2:26 p.m. UTC 
  * guix/scripts/import.scm (guix-import): Skip existing definition for
‘--insert’ option.

Change-Id: I2c4242669f974b263a018ab0cf56538bd7c81d06
---
 guix/scripts/import.scm | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)
diff mbox series

Patch

diff --git a/guix/scripts/import.scm b/guix/scripts/import.scm
index e99796a430..f6e2985ed9 100644
--- a/guix/scripts/import.scm
+++ b/guix/scripts/import.scm
@@ -136,16 +136,18 @@  (define-command (guix-import . args)
              (lambda (expr)
                (match expr
                  (((? definer? definer) term _ ...)
-                  (let ((source-properties
-                          (find-definition-insertion-location
+                  ;; Skip existing definition.
+                  (unless (find-definition-location file term #:definer definer)
+                    (let ((source-properties
+                           (find-definition-insertion-location
                             file term #:definer definer)))
-                    (if source-properties
-                      (insert-expression source-properties expr)
-                      (let ((port (open-file file "a")))
-                        (pretty-print-with-comments port expr)
-                        (newline port)
-                        (newline port)
-                        (close-port port)))))))))
+                      (if source-properties
+                          (insert-expression source-properties expr)
+                          (let ((port (open-file file "a")))
+                            (pretty-print-with-comments port expr)
+                            (newline port)
+                            (newline port)
+                            (close-port port))))))))))
        (import-as-definitions importer
                               (cons (string-append "--file-to-insert=" file)
                                     args)