Add "foldableArray" encoder

library/Hasql/Encoders.hs

@@ -17,6 +17,7 @@ module Hasql.Encoders
   -- * Value
   Value,
   array,
+  foldableArray,
   bool,
   int2,
   int4,

library/Hasql/Private/Encoders.hs

@@ -122,6 +122,26 @@ array (Array (Array.Array valueOID arrayOID arrayEncoder renderer)) = let
   encoder env input = A.array (PTI.oidWord32 valueOID) (arrayEncoder env input)
   in Value (Value.Value arrayOID arrayOID encoder renderer)
 
+{-|
+Lift a value encoder of element into a unidimensional array encoder of a foldable value.
+
+E.g.,
+
+@
+vectorOfInts :: Value (Vector Int64)
+vectorOfInts = 'foldableArray' ('nonNullable' 'int8')
+@
+
+This function is merely a shortcut for the following expression:
+
+@
+('array' . 'dimension' 'foldl'' . 'element')
+@
+-}
+{-# INLINE foldableArray #-}
+foldableArray :: Foldable foldable => NullableOrNot Value a -> Value (foldable a)
+foldableArray = array . dimension foldl' . element
+
 {-|
 Encoder of @BOOL@ values.
 -}