primary key fix

[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Parser / DDL / XML.pm

diff --git a/lib/SQL/Translator/Parser/DDL/XML.pm b/lib/SQL/Translator/Parser/DDL/XML.pm
index a21c560..a53a405 100644 (file)
--- a/lib/SQL/Translator/Parser/DDL/XML.pm
+++ b/lib/SQL/Translator/Parser/DDL/XML.pm
@@ -76,7 +76,7 @@ multi method parse(Any $data) {
             my $field = Column->new(%fdata);
             $table->add_column($field);
 
-            $table->primary_key( $field->name ) if $fdata{'is_primary_key'};
+            $field->is_primary_key(1) if $fdata{is_primary_key};
 
             #
             # TODO: