[+] add more logger into creation/migration phase

David RENÉ
1 parent 9578d0d4
Showing 1 changed file with 20 additions and 9 deletions Show diff stats
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
   ")
   }}}
   .
-  
-