From a6be1d196691bc78301cfe589a0a0eb6b3d464af Mon Sep 17 00:00:00 2001 From: Dylan Martin Date: Wed, 14 Apr 2021 09:15:33 -0700 Subject: [PATCH 1/2] this should fix the haddock formatting --- persistent-postgresql/Database/Persist/Postgresql.hs | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/persistent-postgresql/Database/Persist/Postgresql.hs b/persistent-postgresql/Database/Persist/Postgresql.hs index 73c967fb9..8711f725c 100644 --- a/persistent-postgresql/Database/Persist/Postgresql.hs +++ b/persistent-postgresql/Database/Persist/Postgresql.hs @@ -1874,14 +1874,10 @@ upsertManyWhere :: PersistEntity record, MonadIO m ) => - -- | A list of the records you want to insert, or update - [record] -> - -- | A list of the fields you want to copy over. - [HandleUpdateCollision record] -> - -- | A list of the updates to apply that aren't dependent on the record being inserted. - [Update record] -> - -- | A filter condition that dictates the scope of the updates - [Filter record] -> + [record] -> -- ^ A list of the records you want to insert, or update + [HandleUpdateCollision record] -> -- ^ A list of the fields you want to copy over. + [Update record] -> -- ^ A list of the updates to apply that aren't dependent on the record being inserted. + [Filter record] -> -- ^ A filter condition that dictates the scope of the updates ReaderT backend m () upsertManyWhere [] _ _ _ = return () upsertManyWhere records fieldValues updates filters = do From c24641ff5293d988f40ecdeb8323fddf2e1aacfe Mon Sep 17 00:00:00 2001 From: Dylan Martin Date: Wed, 14 Apr 2021 09:19:22 -0700 Subject: [PATCH 2/2] updated styling --- persistent-postgresql/Database/Persist/Postgresql.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/persistent-postgresql/Database/Persist/Postgresql.hs b/persistent-postgresql/Database/Persist/Postgresql.hs index 8711f725c..970e9772f 100644 --- a/persistent-postgresql/Database/Persist/Postgresql.hs +++ b/persistent-postgresql/Database/Persist/Postgresql.hs @@ -1865,7 +1865,7 @@ excludeNotEqualToOriginal field = -- Called thusly, this method will insert a new record (if none exists) OR update a recordField with a new value -- assuming the condition in the last block is met. -- --- -- @since 2.12.1.0 +-- @since 2.12.1.0 upsertManyWhere :: forall record backend m. ( backend ~ PersistEntityBackend record,