From 95e5ec0fd4fe71477bb2c0fdc7307c7423a3e825 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 27 Dec 2019 16:05:49 +0000
Subject: move scan-dir out of Store

---
 bayes | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'bayes')

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,
     );
 
-- 
cgit v1.2.3