remove method "install" for CURLF

rakudo · May 21, 2015 · 7adde5a · 7adde5a
1 parent 29e5521
commit 7adde5a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/src/core/CompUnitRepo/Local/File.pm b/src/core/CompUnitRepo/Local/File.pm
@@ -9,7 +9,6 @@ class CompUnitRepo::Local::File does CompUnitRepo::Locally {
     # global cache of files seen
     my %seen;
 
-    method install($source, $from?) { ... }
     method files($file, :$name, :$auth, :$ver) {
         my $base := $file.IO;
         $base.f

diff --git a/src/core/CompUnitRepo/Locally.pm b/src/core/CompUnitRepo/Locally.pm
@@ -17,7 +17,7 @@ role CompUnitRepo::Locally {
 
     multi method Str(CompUnitRepo::Locally:D:) { $!IO.abspath }
     multi method gist(CompUnitRepo::Locally:D:) {
-        "{self.short-id}#$!IO.abspath()";
+        self.path-spec
     }
     multi method perl(CompUnitRepo::Locally:D:) {
         $?CLASS.^name ~ ".new('$!IO.abspath()')";
@@ -31,11 +31,10 @@ role CompUnitRepo::Locally {
     multi method WHICH(CompUnitRepo::Locally:D:) { $!WHICH }
 
     method path-spec(CompUnitRepo::Locally:D:) {
-        self.short-id ~ ':' ~ $!IO.abspath;
+        self.short-id ~ '#' ~ $!IO.abspath;
     }
 
     # stubs
-    method install(CompUnitRepo::Locally:D: $source, $from? )             {...}
     method files(CompUnitRepo::Locally:D: $file, :$name, :$auth, :$ver)   {...}
     method candidates(CompUnitRepo::Locally:D: $name,:$file,:$auth,:$ver) {...}
     method short-id(CompUnitRepo::Locally:D:)                             {...}