deactivate the foreign key constraint during migration

totoro
1 parent 891e24cf
Showing 1 changed file with 6 additions and 2 deletions Show diff stats
database/alter_table.anubis
@@ -222,8 +222,9 @@ public define Maybe(One)
                   },
           true then
             with tempNameTable = tableName + "_temp",
+              forget(sql_query(db, "PRAGMA foreign_keys = 0;"));
               forget(sql_query(db, "DROP TABLE " + tempNameTable));
-              if my_sql_query(db, "CREATE TEMP TABLE " + tempNameTable + " AS SELECT * from " + fullTableName, log) is failure then failure else
+              with result = if my_sql_query(db, "CREATE TEMP TABLE " + tempNameTable + " AS SELECT * from " + fullTableName, log) is failure then failure else
               if my_sql_query(db, "DROP TABLE " + fullTableName, log)  is failure then failure else
               if my_sql_query(db, newTableQuery , log)  is failure then failure else
               if sql_query(db, "SELECT * FROM " + tempNameTable) is
@@ -244,7 +245,10 @@ public define Maybe(One)
                             ok(_,_,_) then logInfo(log, "  --> ok."); success(unique)
                           }
                     }
-              }
+              },
+              
+              forget(sql_query(db, "PRAGMA foreign_keys = 1;"));
+              result
         }
       else
         success(unique)