add .Str and .gist to CompUnitRepo::*

rakudo · May 28, 2014 · ca7121f · ca7121f
1 parent 2daea40
commit ca7121f
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/core/CompUnitRepo/Local/File.pm b/src/core/CompUnitRepo/Local/File.pm
@@ -5,10 +5,13 @@ class CompUnitRepo::Local::File {
     }
 
     method BUILD(:@location) {
-        @!paths = @location;
+        @!paths = @location>>.map(*.path);
         self
     }
 
+    method Str { @!paths.Str }
+    method gist { "CompUnitRepo::Local::File(" ~ @!paths.Str ~ ')' }
+
     method install($source, $from?) {
         ...
     }

diff --git a/src/core/CompUnitRepo/Local/Installation.pm b/src/core/CompUnitRepo/Local/Installation.pm
@@ -46,7 +46,8 @@ class CompUnitRepo::Local::Installation {
         }
     }
 
-    method Str { $!path.absolute.Str }
+    method Str { $!path.Str }
+    method gist { "CompUnitRepo::Local::Installation(" ~ $!path.Str ~ ')' }
 
     method writeable-path {
         %!dists.keys.first( *.IO.w )