Improve load of payments into DB

2023-05-02 14:40:26 -05:00 · 2023-05-02 14:40:26 -05:00 · f8b69a1c87
parent c74b75d025
commit f8b69a1c87
1 changed files with 10 additions and 3 deletions
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@ -523,9 +523,16 @@ upsertPayment pipe dbName p = do
              (memo p)
      let payment = val payTx
      case payment of
-        Doc d ->
-          access pipe master dbName $
-          upsert (select ["txid" =: txid p] "payments") d
+        Doc d -> do
+          results <-
+            access
+              pipe
+              master
+              dbName
+              (rest =<< find (select ["txid" =: txid p] "payments"))
+          when (null results) $
+            access pipe master dbName $
+            upsert (select ["txid" =: txid p] "payments") d
        _ -> return ()

 authSettings :: AuthSettings