Filter generated values correctly

kderme · kderme · commit d5c422166b24 · 2024-02-02T16:10:05.000+02:00
diff --git a/cardano-db/src/Cardano/Db/Insert.hs b/cardano-db/src/Cardano/Db/Insert.hs
@@ -499,7 +499,7 @@ insertManyUnique vtype constraintExists constraintName records = do
         ]
 
     values :: [PersistValue]
-    values = concatMap (map toPersistValue . toPersistFields) records
+    values = concatMap Util.mkInsertValues records
 
     conflictQuery :: Text
     conflictQuery =

Original file line number	Diff line number	Diff line change
`@@ -499,7 +499,7 @@ insertManyUnique vtype constraintExists constraintName records = do`
`499`	`499`	`]`
`500`	`500`
`501`	`501`	`values :: [PersistValue]`
`502`		`- values = concatMap (map toPersistValue . toPersistFields) records`
	`502`	`+ values = concatMap Util.mkInsertValues records`
`503`	`503`
`504`	`504`	`conflictQuery :: Text`
`505`	`505`	`conflictQuery =`