e4bf797 · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

Implement mconcat for Query using B.concat

commite4bf7971cb99c919eaaee8451fa6e0503ab64042 authorJoey Adams <joeyadams3.14159@gmail.com> dateFri 7 Jun 2013, 19:33 (13 years ago) parenteb297fb

1 file changed+1

unifiedsplit

src/Database/PostgreSQL/Simple/Types.hs+1

@@ -80,6 +80,7 @@ instance Monoid Query where

8080 mempty = Query B.empty

8181 mappend (Query a) (Query b) = Query (B.append a b)

8282 {-# INLINE mappend #-}

83+ mconcat xs = Query (B.concat (map fromQuery xs))

8384

8485-- | A single-value \"collection\".

8586--