aboutsummaryrefslogtreecommitdiff
path: root/nix/scripts/list-runtime-roots.in
diff options
context:
space:
mode:
Diffstat (limited to 'nix/scripts/list-runtime-roots.in')
-rw-r--r--nix/scripts/list-runtime-roots.in16
1 files changed, 15 insertions, 1 deletions
diff --git a/nix/scripts/list-runtime-roots.in b/nix/scripts/list-runtime-roots.in
index 6f0e7f5b6a..001d25c577 100644
--- a/nix/scripts/list-runtime-roots.in
+++ b/nix/scripts/list-runtime-roots.in
@@ -26,6 +26,7 @@
(use-modules (ice-9 ftw)
(ice-9 regex)
(ice-9 rdelim)
+ (ice-9 match)
(srfi srfi-1)
(srfi srfi-26)
(rnrs io ports))
@@ -126,5 +127,18 @@ or the empty list."
(lambda (a b)
(< (string->number a) (string->number b))))))
+(define canonicalize-store-item
+ (let ((prefix (+ 1 (string-length %store-directory))))
+ (lambda (file)
+ "Return #f if FILE is not a store item; otherwise, return the store file
+name without any sub-directory components."
+ (and (string-prefix? %store-directory file)
+ (string-append %store-directory "/"
+ (let ((base (string-drop file prefix)))
+ (match (string-index base #\/)
+ (#f base)
+ (slash (string-take base slash)))))))))
+
(for-each (cut simple-format #t "~a~%" <>)
- (delete-duplicates (referenced-files)))
+ (delete-duplicates
+ (filter-map canonicalize-store-item (referenced-files))))