Create Application/Migration directory if missing when generating new…

… migration
digitallyinduced · Nov 18, 2020 · a32a9a1 · a32a9a1
1 parent 3147eca
commit a32a9a1
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/IHP/SchemaMigration.hs b/IHP/SchemaMigration.hs
@@ -118,5 +118,6 @@ createMigration description = do
     revision <- round <$> POSIX.getPOSIXTime 
     let slug = NameSupport.toSlug description
     let migrationFile = tshow revision <> (if isEmpty slug then "" else "-" <> slug) <> ".sql"
+    Directory.createDirectoryIfMissing False "Application/Migration"
     Text.writeFile ("Application/Migration/" <> cs migrationFile) "-- Write your SQL migration code in here\n"
     pure Migration { .. }