> Please also try `guix gc --referrers`.
That's right. I wrote a simple script, which shows it:
#!/bin/sh
if [ -z "$1" ]
then exit 1
fi
cprof=$(readlink -f ~/.guix-profile)
init=/gnu/store/*-$1*/
rtest="$(eval echo $init)" # trick!
if [ "$rtest" = "$init" ]
then init=$1
fi
for f in $init
do
f=${f%/}
ref="$(guix gc --referrers $f | grep -v $f)"
if echo "$ref" | grep -q $cprof
then
echo $f in CURRENT profile!
exit
else
echo ● $f 1>&2
if ((${#ref} > 10))
then echo "$ref" | grep --color -e ".*-system" -e "^"
else echo NO REFERRERS 1>&2
fi
echo
fi
## and recursively
for j in $(echo "$ref" | grep -E 'profile$')
do eval $0 $j
done
done
exit
- Results for 'icecat':
~/Desktop> guix-gc-refcount.sh icecat
● /gnu/store/50530hgnzkxgkqciip68dn7v23cslw1c-icecat-60.8.0-guix1
/gnu/store/8x0ipsgl2dhdi7n1psrh8dssv8dh39dd-xdg-desktop-database
/gnu/store/njwpq4ywz17rgvvbdds20cndrgwsrcxs-gtk-icon-themes
/gnu/store/zxqr8afp3rpd2r3g9x41sqg5mx525355-profile
● /gnu/store/zxqr8afp3rpd2r3g9x41sqg5mx525355-profile
NO REFERRERS
- Results for my own package 'wdfs':
guix-gc-refcount.sh wdfs
/gnu/store/7j1zhlwqjmhyvr7mg8il02xvqvd9yfmz-wdfs-1.4.2 in CURRENT profile!
Incomprehensibly..
