fixed error in readSqlStatements

digitallyinduced · Nov 19, 2024 · 5174b90 · 5174b90
1 parent 7a4c95f
commit 5174b90
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ihp-ide/IHP/IDE/SchemaDesigner/Controller/Migrations.hs b/ihp-ide/IHP/IDE/SchemaDesigner/Controller/Migrations.hs
@@ -111,7 +111,7 @@ instance Controller MigrationsController where
 readSqlStatements :: SchemaMigration.Migration -> IO Text
 readSqlStatements migration = do
     migrationFilePath <- (SchemaMigration.migrationPath migration)
-    pure Text.readFile (migrationFilePath)
+    Text.readFile (cs migrationFilePath)
 
 findRecentMigrations :: IO [SchemaMigration.Migration]
 findRecentMigrations = take 20 . reverse <$> SchemaMigration.findAllMigrations