From 71b438a0be1a35083ce338c28655161eb52756b9 Mon Sep 17 00:00:00 2001 From: vrom911 Date: Thu, 11 Jul 2019 12:14:19 +0800 Subject: [PATCH] =?UTF-8?q?[#10]=20Lower=20fixity=20of=20=3D=3F=20operator?= Resolves #10 --- src/PgNamed.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/PgNamed.hs b/src/PgNamed.hs index 1514c5e..5c82604 100644 --- a/src/PgNamed.hs +++ b/src/PgNamed.hs @@ -160,7 +160,7 @@ queryNamed [sql| ] @ -} -infix 7 =? +infix 1 =? (=?) :: (PG.ToField a) => Name -> a -> NamedParam n =? a = NamedParam n $ PG.toField a {-# INLINE (=?) #-}