Make sqlWhere{EqualsAny,In,NotIn} prepared-query friendly (#102)

CHANGELOG.md

@@ -1,5 +1,7 @@
 # hpqtypes-extras-1.16.4.4 (2023-??-??)
 * Switch from `cryptonite` to `crypton`.
+* Make `sqlWhereEqualsAny`, `sqlWhereIn` and `sqlWhereNotIn` prepared-query
+  friendly.
 
 # hpqtypes-extras-1.16.4.3 (2023-06-12)
 * Synchronize timezone of a session with timezone of a database after changing

src/Database/PostgreSQL/PQTypes/SQL/Builder.hs

@@ -602,14 +602,9 @@ sqlWhereILike name value = sqlWhere  $ name <+> "ILIKE" <?> value
 
 -- | Similar to 'sqlWhereIn', but uses @ANY@ instead of @SELECT UNNEST@.
 sqlWhereEqualsAny :: (MonadState v m, SqlWhere v, Show a, ToSQL a) => SQL -> [a] -> m ()
-sqlWhereEqualsAny name = \case
-  [] -> sqlWhere "FALSE"
-  [value] -> sqlWhereEq name value
-  values -> sqlWhere $ name <+> "= ANY(" <?> Array1 values <+> ")"
+sqlWhereEqualsAny name values = sqlWhere $ name <+> "= ANY(" <?> Array1 values <+> ")"
 
 sqlWhereIn :: (MonadState v m, SqlWhere v, Show a, ToSQL a) => SQL -> [a] -> m ()
-sqlWhereIn _name [] = sqlWhere "FALSE"
-sqlWhereIn name [value] = sqlWhereEq name value
 sqlWhereIn name values = do
   -- Unpack the array to give query optimizer more options.
   sqlWhere $ name <+> "IN (SELECT UNNEST(" <?> Array1 values <+> "))"
@@ -618,8 +613,6 @@ sqlWhereInSql :: (MonadState v m, Sqlable a, SqlWhere v) => SQL -> a -> m ()
 sqlWhereInSql name sql = sqlWhere $ name <+> "IN" <+> parenthesize (toSQLCommand sql)
 
 sqlWhereNotIn :: (MonadState v m, SqlWhere v, Show a, ToSQL a) => SQL -> [a] -> m ()
-sqlWhereNotIn _name [] = sqlWhere "TRUE"
-sqlWhereNotIn name [value] = sqlWhereNotEq name value
 sqlWhereNotIn name values = sqlWhere $ name <+> "NOT IN (SELECT UNNEST(" <?> Array1 values <+> "))"
 
 sqlWhereNotInSql :: (MonadState v m, Sqlable a, SqlWhere v) => SQL -> a -> m ()