Create schema.sql on migrate

joy-framework · Dec 3, 2019 · cc17288 · cc17288
1 parent 9023d89
commit cc17288
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/joy/migrator.janet b/src/joy/migrator.janet
@@ -57,6 +57,12 @@
             (print up)
             (db/execute conn up)
             (db/execute conn "insert into schema_migrations (version) values (:version)" {:version version})
+            (let [rows (db/query conn "select sql from sqlite_master where sql is not null order by rootpage")]
+              (helper/with-file [f "db/schema.sql" :w]
+                (file/write f
+                   (string/join
+                     (map |(get $ :sql) rows)
+                     "\n"))))
             (print "Successfully migrated [" migration "]")))))))
 
 
@@ -73,6 +79,12 @@
           (print down)
           (db/execute conn down)
           (db/execute conn "delete from schema_migrations where version = :version" {:version version})
+          (let [rows (db/query conn "select sql from sqlite_master where sql is not null order by rootpage")]
+            (helper/with-file [f "db/schema.sql" :w]
+              (file/write f
+                 (string/join
+                   (map |(get $ :sql) rows)
+                   "\n"))))
           (print "Successfully rolled back [" migration "]"))))))