move scan-dir out of Store

1 files changed, 3 insertions, 1 deletions

diff --git a/bayes b/bayes
index 0bb9d3e..a99a3e9 100644
--- a/bayes
+++ b/bayes
@@ -1,13 +1,15 @@
 #!/usr/bin/env perl6
 use v6.d.PREVIEW;
 use lib 'lib';
+use MaildirIndexer::ScanDir;
 use MaildirIndexer::Store;
 use MaildirIndexer::Server;
 use MaildirIndexer::Index::ByRef;
 
 sub MAIN($maildir) {
+    my $file-channel = scan-dir($maildir).Channel;
     my $store = MaildirIndexer::Store.new(
-        :$maildir,
+        :$file-channel,
         indices => MaildirIndexer::Index::ByRef.new,
     );