diff options
-rw-r--r-- | bin/maildir-indexer | 4 | ||||
-rw-r--r-- | lib/MaildirIndexer/ScanDir.rakumod | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/bin/maildir-indexer b/bin/maildir-indexer index 2ee76f8..1bb1740 100644 --- a/bin/maildir-indexer +++ b/bin/maildir-indexer @@ -7,8 +7,8 @@ use MaildirIndexer::Server; use MaildirIndexer::Index::ByRef; use MaildirIndexer::Index::ByAddresses; -sub MAIN($maildir,Int :$port = 9000) { - my $file-channel = scan-dir($maildir).Channel; +sub MAIN(*@maildirs, Int :$port = 9000) { + my $file-channel = scan-dir(@maildirs).Channel; my $store = MaildirIndexer::Store.new( :$file-channel, indices => ( diff --git a/lib/MaildirIndexer/ScanDir.rakumod b/lib/MaildirIndexer/ScanDir.rakumod index c45d787..e909d58 100644 --- a/lib/MaildirIndexer/ScanDir.rakumod +++ b/lib/MaildirIndexer/ScanDir.rakumod @@ -3,7 +3,7 @@ unit module MaildirIndexer::ScanDir; class End {}; -sub scan-dir(IO() $path --> Supply) is export { +sub scan-dir(@paths --> Supply) is export { supply { my %watched-dirs; @@ -24,8 +24,8 @@ sub scan-dir(IO() $path --> Supply) is export { } } - sub add-dir(IO::Path $dir) { - my @todo = $dir; + sub add-dir(IO::Path @dirs) { + my (@todo) = @dirs; while @todo { my $next = @todo.shift; @@ -46,7 +46,7 @@ sub scan-dir(IO() $path --> Supply) is export { } - add-dir($path); + add-dir(Array[IO::Path].new(@paths».IO)); emit End; } } |