diff --git a/bin/blin.p6 b/bin/blin.p6 index 94bc81a..f37efdd 100755 --- a/bin/blin.p6 +++ b/bin/blin.p6 @@ -366,10 +366,10 @@ for $to-visualize.keys -> $module { when ZefFailure { ‘crimson’ } when UnhandledException { ‘hotpink’ } } - $dot ~= “ "{$module.name}" [color=$color];\n”; + $dot ~= “ "{$module.handle}" [color=$color];\n”; for $module.depends.keys { next unless $_ ∈ $to-visualize; - $dot ~= “ "{$module.name}" -> "{.name}";\n”; + $dot ~= “ "{$module.handle}" -> "{.handle}";\n”; } $dot ~= “\n”; } diff --git a/lib/Blin/Module.pm6 b/lib/Blin/Module.pm6 index eece2ea..0cc5b9f 100644 --- a/lib/Blin/Module.pm6 +++ b/lib/Blin/Module.pm6 @@ -10,9 +10,13 @@ has Str @.errors; has Bool $.visited; has Promise $.done = Promise.new; -method install-path { +method handle { # TODO surely we can do better to ensure it won't clash - ‘installed/’ ~ $.name ~ ‘_’ ~ $.version + $.name ~ ‘_’ ~ $.version +} + +method install-path { + ‘installed/’ ~ self.handle } method deps($leaf = False) {