fully type Resolution* classes
[scpubgit/DX.git] / lib / DX / Resolution.pm
index 3606633..a821f7a 100644 (file)
@@ -3,9 +3,9 @@ package DX::Resolution;
 use DX::Utils qw(expand_deps);
 use DX::Class;
 
-has veracity_depends_on => (is => 'ro', required => 1);
+has veracity_depends_on => (is => 'ro', required => 1, isa => DependencyList);
 
-has actions => (is => 'ro', required => 1);
+has actions => (is => 'ro', required => 1, isa => ArrayRef[Action]);
 
 sub next_resolution { $_[0] }
 
@@ -13,8 +13,8 @@ sub remainder { () }
 
 sub for_deparse {
   my ($self) = @_;
-  [ statement => [
-    [ symbol => 'resolution' ],
+  [ word_and_body => [
+    'resolution',
     [ pairs => [
       (@{$self->actions}
         ? [ actions => [ block => $self->actions ] ]