diff --git a/IHP/SchemaMigration.hs b/IHP/SchemaMigration.hs
index f6cff79e8..131b3ecec 100644
--- 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 { .. }
\ No newline at end of file