fix lifting cs into IO.

digitallyinduced · Nov 19, 2024 · ac5d0dc · ac5d0dc
1 parent 3bec395
commit ac5d0dc
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
@@ -86,7 +86,7 @@ instance Controller MigrationsController where
 
     action DeleteMigrationAction { migrationId } = do
         migration <- findMigrationByRevision migrationId
-        path <- cs $ SchemaMigration.migrationPath migration
+        path <- cs <$> SchemaMigration.migrationPath migration
 
         Directory.removeFile path