From 0353f6c307a53322b7977303b043b71080b5beaf Mon Sep 17 00:00:00 2001
From: Nikita Volkov <nikita.y.volkov@mail.ru>
Date: Sat, 23 Mar 2024 13:48:55 +0300
Subject: [PATCH] Clarify the arg names

---
 library/Hasql/Statement.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/library/Hasql/Statement.hs b/library/Hasql/Statement.hs
index a503e7a..0b1c968 100644
--- a/library/Hasql/Statement.hs
+++ b/library/Hasql/Statement.hs
@@ -38,7 +38,7 @@ import Hasql.Prelude
 --
 -- The statement above accepts a product of two parameters of type 'Int64'
 -- and produces a single result of type 'Int64'.
-data Statement a b
+data Statement params result
   = Statement
       -- | SQL template.
       --
@@ -50,9 +50,9 @@ data Statement a b
       -- the value encoders are specified in the parameters encoder.
       ByteString
       -- | Parameters encoder.
-      (Encoders.Params a)
+      (Encoders.Params params)
       -- | Decoder of result.
-      (Decoders.Result b)
+      (Decoders.Result result)
       -- | Flag, determining whether it should be prepared.
       --
       -- Set it to 'True' if your application has a limited amount of queries and doesn't generate the SQL dynamically.
@@ -63,7 +63,7 @@ data Statement a b
       -- It should be noted that starting from version @1.21.0@ @pgbouncer@ now does provide support for prepared statements.
       Bool
 
-instance Functor (Statement a) where
+instance Functor (Statement params) where
   {-# INLINE fmap #-}
   fmap = rmap