diff --git a/conflicts-test/Main/Statements.hs b/conflicts-test/Main/Statements.hs index 676c459..294d25e 100644 --- a/conflicts-test/Main/Statements.hs +++ b/conflicts-test/Main/Statements.hs @@ -1,6 +1,5 @@ module Main.Statements where -import Contravariant.Extras import Hasql.Decoders qualified as D import Hasql.Encoders qualified as E import Hasql.Statement @@ -33,7 +32,7 @@ modifyBalance :: Statement (Int64, Scientific) Bool modifyBalance = Statement "update account set balance = balance + $2 where id = $1" - (contrazip2 ((E.param . E.nonNullable) E.int8) ((E.param . E.nonNullable) E.numeric)) + ((fst >$< (E.param . E.nonNullable) E.int8) <> (snd >$< (E.param . E.nonNullable) E.numeric)) (fmap (> 0) D.rowsAffected) True diff --git a/hasql-transaction.cabal b/hasql-transaction.cabal index c287000..6d6ea3e 100644 --- a/hasql-transaction.cabal +++ b/hasql-transaction.cabal @@ -115,7 +115,6 @@ test-suite conflicts-test build-depends: async >=2.1 && <3, - contravariant-extras >=0.3 && <0.4, hasql, hasql-transaction, rerebase >=1.11 && <2,