naive-bayes classifying index

half-tested by hand

1 files changed, 5 insertions, 1 deletions

diff --git a/bayes b/bayes
index a99a3e9..2601874 100644
--- a/bayes
+++ b/bayes
@@ -5,12 +5,16 @@ use MaildirIndexer::ScanDir;
 use MaildirIndexer::Store;
 use MaildirIndexer::Server;
 use MaildirIndexer::Index::ByRef;
+use MaildirIndexer::Index::ByAddresses;
 
 sub MAIN($maildir) {
     my $file-channel = scan-dir($maildir).Channel;
     my $store = MaildirIndexer::Store.new(
         :$file-channel,
-        indices => MaildirIndexer::Index::ByRef.new,
+        indices => (
+            MaildirIndexer::Index::ByRef.new,
+            MaildirIndexer::Index::ByAddresses.new,
+        ),
     );
 
     my $server = MaildirIndexer::Server.new(:$store);