From ac5d0dc2b1b07c1d80116ddfa23e0657f33dbb9d Mon Sep 17 00:00:00 2001 From: Montmorency Date: Tue, 19 Nov 2024 09:05:14 +0000 Subject: [PATCH] fix lifting cs into IO. --- ihp-ide/IHP/IDE/SchemaDesigner/Controller/Migrations.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ihp-ide/IHP/IDE/SchemaDesigner/Controller/Migrations.hs b/ihp-ide/IHP/IDE/SchemaDesigner/Controller/Migrations.hs index aafca152d..940c903ed 100644 --- 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