Rework file sub to allow body to accept a Task

This was an oops in 8102fcb.
Raku · Jun 25, 2018 · 4972a25 · 4972a25
1 parent 7a6d1a7
commit 4972a25
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/lib/Sake.pm6 b/lib/Sake.pm6
@@ -50,7 +50,11 @@ my sub touch (Str $filename) {
 }
 
 multi sub file(Str $name, &body) {
-    return make-task($name, sub { &body.(); touch($name) }, :cond(sub { $name.path !~~ :e; }) );
+    return make-task(
+        $name,
+        { &body($_); touch $name },
+        :cond(sub { $name.path !~~ :e; })
+    )
 }
 
 multi sub file(Pair $name-deps, &body) {
@@ -60,5 +64,10 @@ multi sub file(Pair $name-deps, &body) {
         my $f = $name.path;
         !($f ~~ :e) || $f.modified < all(map { $_.modified }, grep { $_ ~~ IO::Path }, @deps);
     };
-    return make-task($name, sub { &body.(); touch($name) }, :@deps, :cond($cond));
+    return make-task(
+        $name,
+        { &body($_); touch $name },
+        :@deps,
+        :cond($cond)
+    )
 }