rewrite IM predicates

[catagits/Reaction.git] / lib / Reaction / Types / DBIC.pm

diff --git a/lib/Reaction/Types/DBIC.pm b/lib/Reaction/Types/DBIC.pm
index 0dd1ff8..8f9a37d 100644 (file)
--- a/lib/Reaction/Types/DBIC.pm
+++ b/lib/Reaction/Types/DBIC.pm
@@ -11,8 +11,8 @@ subtype 'DBIx::Class::ResultSet'
   => as 'Object'
   => where { $_->isa('DBIx::Class::ResultSet') };
 
-subtype ResultSet
-  => as 'DBIx::Class::ResultSet';
+subtype ResultSet,
+  as 'DBIx::Class::ResultSet';
 
 use DBIx::Class::Core;
 use DBIx::Class::Row;
@@ -21,8 +21,8 @@ subtype 'DBIx::Class::Row'
   => as 'Object'
   => where { $_->isa('DBIx::Class::Row') };
 
-subtype Row
-  => as 'DBIx::Class::Row';
+subtype Row,
+  as 'DBIx::Class::Row';
 
 1;