diff --git a/src/generation/create_table.anubis b/src/generation/create_table.anubis index 7cbbd0a..6ef8ae5 100644 --- a/src/generation/create_table.anubis +++ b/src/generation/create_table.anubis @@ -357,18 +357,24 @@ public define Maybe(One) create_v"+version_str+"_tables ( SQLite3DataBase db, - (LogLevel, String) -> One logger_debug + (LogLevel, String) -> One logger )= - if drop_all_triggers(db, logger_debug) is failure then failure else + logger(logInfo, \"DB migration create_v"+version_str+"_tables\"); + if drop_all_triggers(db, logger) is failure then + logger(logError, \"DB migration create_v"+version_str+"_tables: drop_all_triggers error\"); + failure + else with tables = (List(DbTable)) [ "+generate_all_tables_list(apps, " ")+" ], - if create_tables(db, logger_debug, tables, _version) is + if create_tables(db, logger, tables, _version) is { - failure then failure, + failure then + logger(logError, \"DB migration create_v"+version_str+"_tables: create_tables error\"); + failure, success(_) then - if make_foreign_keys(db, logger_debug, db_relations, _version) is failure then failure else + if make_foreign_keys(db, logger, db_relations, _version) is failure then failure else success(unique) } . @@ -420,6 +426,7 @@ public define Maybe(One) SQLite3DataBase db, (LogLevel, String) -> One logger )= + logger(logInfo, \"DB migration create_v"+version_str+"_indexes\"); if create_indexes(db, logger, db_indexes, _version) is failure then failure else success(unique) . @@ -429,14 +436,20 @@ define Maybe(One) ( SQLite3DataBase db, (LogLevel, String) -> One logger - )=success(unique). + )= + logger(logInfo, \"DB migration to_v"+version_str+"_pre\"); + success(unique) +. define Maybe(One) to_v"+version_str+"_post ( SQLite3DataBase db, (LogLevel, String) -> One logger - )=success(unique). + )= + logger(logInfo, \"DB migration to_v"+version_str+"_post\"); + success(unique) +. public define Maybe(One) migrate_to_v"+version_str+" @@ -472,5 +485,3 @@ global define VTM ") }}} . - - -- libgit2 0.21.4