show progress while writing type graph images

Raku · Aug 6, 2012 · 9596fde · 9596fde
1 parent 1b3ffe4
commit 9596fde
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/htmlify.pl b/htmlify.pl
@@ -241,12 +241,14 @@ (Bool :$debug)
 }
 
 sub write-type-graph-images() {
-    say "Writing type graph images to html/images/";
+    print "Writing type graph images to html/images/ ";
     for $tg.sorted -> $type {
         my $viz = Perl6::TypeGraph::Viz.new-for-type($type);
         $viz.to-file("html/images/type-graph-{$type}.svg", format => 'svg');
         $viz.to-file("html/images/type-graph-{$type}.png", format => 'png', size => '8,3');
+        print '.'
     }
+    say ' done.';
 
     say "Writing specialized visualizations to html/images/";
     my %by-group = $tg.sorted.classify(&viz-group);