@@ -80,6 +80,7 @@ instance Monoid Query where
80 mempty = Query B.empty
80 mempty = Query B.empty
81 mappend (Query a) (Query b) = Query (B.append a b)
81 mappend (Query a) (Query b) = Query (B.append a b)
82 {-# INLINE mappend #-}
82 {-# INLINE mappend #-}
83+ mconcat xs = Query (B.concat (map fromQuery xs))
84-- | A single-value \"collection\".
85-- | A single-value \"collection\".