Remove contravariant-extras from test dependencies

nikita-volkov · Jun 17, 2024 · 9725220 · 9725220
1 parent 6b63987
commit 9725220
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 3 deletions.
diff --git 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
@@ -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,