Automatically delete all table triggers when a table is removed from the schema

Author: mpscholten

IHP/IDE/SchemaDesigner/SchemaOperations.hs

@@ -320,4 +320,5 @@ deleteTable tableName statements =
         CreateIndex { tableName = indexTable }          | indexTable == tableName      -> False
         EnableRowLevelSecurity { tableName = rlsTable } | rlsTable == tableName        -> False
         CreatePolicy { tableName = policyTable }        | policyTable == tableName     -> False
+        CreateTrigger { tableName = triggerTable }      | triggerTable == tableName    -> False
         otherwise -> True

Test/IDE/SchemaDesigner/SchemaOperationsSpec.hs

@@ -85,14 +85,15 @@ tests = do
                 (SchemaOperations.disableRowLevelSecurityIfNoPolicies "a" inputSchema) `shouldBe` inputSchema
 
         describe "deleteTable" do
-            it "delete a table with all it's indices, constraints, policies, enable RLS statements" do
+            it "delete a table with all it's indices, constraints, policies, enable RLS statements, triggers" do
                 let inputSchema = parseSqlStatements [trimming|
                     CREATE TABLE users ();
                     CREATE TABLE tasks ();
                     CREATE INDEX tasks_user_id_index ON tasks (user_id);
                     ALTER TABLE tasks ADD CONSTRAINT tasks_ref_user_id FOREIGN KEY (user_id) REFERENCES users (id) ON DELETE NO ACTION;
                     CREATE POLICY "Users can manage their tasks" ON tasks USING (user_id = ihp_user_id()) WITH CHECK (user_id = ihp_user_id());
                     ALTER TABLE tasks ENABLE ROW LEVEL SECURITY;
+                    CREATE TRIGGER update_tasks_updated_at BEFORE UPDATE ON tasks FOR EACH ROW EXECUTE FUNCTION set_updated_at_to_now();
                 |]
                 let outputSchema = parseSqlStatements [trimming|
                     CREATE TABLE users ();
@@ -176,4 +177,4 @@ parseSqlStatements :: Text -> [Statement]
 parseSqlStatements sql =
     case Megaparsec.runParser Parser.parseDDL "input" sql of
             Left parserError -> error (cs $ Megaparsec.errorBundlePretty parserError) -- For better error reporting in hspec
-            Right statements -> statements
+            Right statements -> statements