stricter type for tag names

we really don't want to tag something "../foo/bar"!

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/Sietima/MailStore/FS.pm b/lib/Sietima/MailStore/FS.pm
index 6f872c1..d4e6ec1 100644
--- a/lib/Sietima/MailStore/FS.pm
+++ b/lib/Sietima/MailStore/FS.pm
@@ -4,7 +4,7 @@ use Sietima::Policy;
 use Types::Path::Tiny qw(Dir);
 use Types::Standard qw(Object ArrayRef Str slurpy);
 use Type::Params qw(compile);
-use Sietima::Types qw(EmailMIME);
+use Sietima::Types qw(EmailMIME TagName);
 use Digest::SHA1 qw(sha1_hex);
 use namespace::clean;
 
@@ -32,7 +32,7 @@ sub clear($self) {
 }
 
 sub store($self,$mail,@tags) {
-    state $check = compile(Object,EmailMIME,slurpy ArrayRef[Str]);$check->(@_);
+    state $check = compile(Object,EmailMIME,slurpy ArrayRef[TagName]);$check->(@_);
 
     my $str = $mail->as_string;
     my $id = sha1_hex($str);
@@ -59,7 +59,7 @@ sub _tagged_by($self,$tag) {
 }
 
 sub retrieve_ids_by_tags($self,@tags) {
-    state $check = compile(Object,slurpy ArrayRef[Str]);$check->(@_);
+    state $check = compile(Object,slurpy ArrayRef[TagName]);$check->(@_);
 
     my %msgs;
     if (@tags) {
@@ -80,7 +80,7 @@ sub retrieve_ids_by_tags($self,@tags) {
 }
 
 sub retrieve_by_tags($self,@tags) {
-    state $check = compile(Object,slurpy ArrayRef[Str]);$check->(@_);
+    state $check = compile(Object,slurpy ArrayRef[TagName]);$check->(@_);
 
     my @ret;
     for my $id ($self->retrieve_ids_by_tags(@tags)->@*) {