From b914e1b76e7e9f8cb8dbee0862315a4e223fcce6 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 6 Oct 2009 02:32:17 -0500
Subject: add element fusions to make mitama

---
 lib/Games/SMTNocturne/Fusion/Types.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/Games/SMTNocturne/Fusion/Types.pm')

diff --git a/lib/Games/SMTNocturne/Fusion/Types.pm b/lib/Games/SMTNocturne/Fusion/Types.pm
index b62f483..cddece8 100644
--- a/lib/Games/SMTNocturne/Fusion/Types.pm
+++ b/lib/Games/SMTNocturne/Fusion/Types.pm
@@ -24,8 +24,8 @@ coerce DemonList, from ArrayRef[Str],
 
 for my $typename (@demon_types) {
     my $type = __PACKAGE__->can($typename)->();
-    class_type $type,
-        { class => "Games::SMTNocturne::Fusion::Demon::$typename" };
+    subtype $type, as SMTDemon,
+        where { $_->isa("Games::SMTNocturne::Fusion::Demon::$typename") };
     coerce $type, from Str,
         via { Games::SMTNocturne::Fusion::Demon->lookup($_) };
 }
-- 
cgit v1.2.3-54-g00ecf