Fix for latest Rakudo

Raku · Jan 25, 2015 · ada0d13 · ada0d13
1 parent 5c25606
commit ada0d13
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 4 deletions.
diff --git a/htmlify.p6 b/htmlify.p6
@@ -224,6 +224,12 @@ sub process-language-source(:$pod, :$podname, :$pod-is-complete) {
 }
 
 sub process-type-source(:$pod, :$podname, :$pod-is-complete) {
+    my $summary = '';
+    if $pod.contents[1] ~~ {$_ ~~ Pod::Block::Named and .name eq "SUBTITLE"} {
+        $summary = $pod.contents[1].contents[0].contents[0];
+    } else {
+        note "$podname does not have an =SUBTITLE";
+    }
     my $type = $tg.types{$podname};
     my $origin = $DR.add-new(
         :kind<type>,
@@ -635,15 +641,15 @@ sub tap-index-files () {
 
 sub tap-index(Supply $s, :$kind!, :$category = Nil, :&summary = {Nil}, :&preamble) {
     $s.categorize({.name}).map(-> $p {
-        $p.value.grab(->@v{
+        $p.value.grab(-> @v {
             $p.key => [
                 say @v.elems;
-              @v.map({.subkinds // Nil}).uniq.join(', '),
+              @v.map({.subkinds // Nil}).unique.join(', '),
               pod-link(@v[0].name, @v[0].url),
               @v.&summary,
             ]
         })
-    }).reduce(->$a,*@b{merge $a: @b}).tap: {
+    }).reduce(-> $a, *@b { merge $a: @b }).tap: {
         my $t = .grab({ pod-with-title
                 "Perl 6 {join " ", $category.tc, $kind.tc}s",
                 preamble($kind),

diff --git a/lib/Perl6/TypeGraph/Viz.pm b/lib/Perl6/TypeGraph/Viz.pm
@@ -38,7 +38,7 @@ class Perl6::TypeGraph::Viz {
             @.types .= unique;
 
             # Find a new batch of seed nodes
-            @seeds = uniq(@seeds>>.sub, @seeds>>.doers);
+            @seeds = unique(@seeds>>.sub, @seeds>>.doers);
 
             # If we're not growing the node pool, stop trying
             last if @.types <= @prev or !@seeds;