Simplify deleteRecordByIds

digitallyinduced · Mar 26, 2024 · 84b309b · 84b309b
1 parent 3da73f7
commit 84b309b
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/IHP/ModelSupport.hs b/IHP/ModelSupport.hs
@@ -689,11 +689,8 @@ deleteRecords records =
 -- DELETE FROM projects WHERE id IN ('..')
 --
 deleteRecordByIds :: forall record table. (?modelContext :: ModelContext, Show (PrimaryKey table), Table record, GetTableName record ~ table, record ~ GetModelByTableName table) => [Id' table] -> IO ()
-deleteRecordByIds [] = do
-  pure () -- If there are no ids, we wouldn't even know the pkCols, so we just don't do anything, as nothing happens anyways
-deleteRecordByIds ids@(firstId : _) = do
+deleteRecordByIds ids = do
   let theQuery = "DELETE FROM " <> tableNameByteString @record <> " WHERE " <> (primaryKeyConditionColumnSelector @record) <> " IN ?"
-
   let theParameters = PG.Only $ PG.In $ map (primaryKeyConditionForId @record) ids
   sqlExec (PG.Query $! theQuery) theParameters
   pure ()