diff options
-rw-r--r-- | guix-build-coordinator/utils.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index fdd7ee3..1d5ddbd 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -474,8 +474,12 @@ context." ;; avoid having many open files when reading a derivation with ;; inputs, read it in to a string first. (call-with-input-string - (call-with-input-file file - get-string-all) + ;; Avoid calling scm_i_relativize_path in + ;; fport_canonicalize_filename since this leads to lots + ;; of readlink calls + (with-fluids ((%file-port-name-canonicalization 'none)) + (call-with-input-file file + get-string-all)) (lambda (port) (set-port-filename! port file) (read-derivation port read-derivation-from-file*))))) |