Add _onConflictDoNothing

Author: tchoutri

CHANGELOG.md

@@ -1,5 +1,9 @@
 # Revision history for Entity
 
+## 0.0.7.0 -- XXXX-XX-XX
+
+* Add `_onConflictDoNothing`
+
 ## 0.0.6.0 -- 2025-05-20
 
 * The `prod` flag is removed, end of the experiment. End-users should be in charge of logging the queries.

src/Database/PostgreSQL/Entity.hs

@@ -38,6 +38,7 @@ module Database.PostgreSQL.Entity
   , insert
   , insertMany
   , upsert
+  , upsertOnPK_
 
     -- ** Update
   , update
@@ -280,7 +281,7 @@ insert
   -> DBT m ()
 insert fs = void $ execute (_insert @e) fs
 
-{-| Insert an entity with a "ON CONFLICT DO UPDATE" clause on the primary key as the conflict target
+{-| Insert an entity with an "ON CONFLICT DO UPDATE" clause on the primary key as the conflict target
 
  @since 0.0.2.0
 -}
@@ -296,6 +297,20 @@ upsert entity fieldsToReplace = void $ execute (_insert @e <> _onConflictDoUpdat
   where
     conflictTarget = V.singleton $ primaryKey @e
 
+{-| Insert an entity with an "ON CONFLICT DO NOTHING" clause
+
+ @since 0.0.2.0
+-}
+upsertOnPK_
+  :: forall e values m
+   . (Entity e, ToRow values, MonadIO m)
+  => values
+  -- ^ Entity to insert
+  -> DBT m ()
+upsertOnPK_ entity = void $ execute (_insert @e <> _onConflictDoNothing conflictTarget ) entity
+  where
+    conflictTarget = V.singleton $ primaryKey @e
+
 {-| Insert multiple rows of an entity.
 
  @since 0.0.2.0