@@ -377,6 +377,13 @@ newtype Statement
377377 (columns :: [(Symbol,NullityType)])
378378 = UnsafeStatement { renderStatement :: ByteString }
379379
380+(.>>.)
381+ :: Statement params schema0 schema1 '[]
382+ -> Statement params schema1 schema2 results
383+ -> Statement params schema0 schema2 results
384+statement1 .>>. statement2 = UnsafeStatement $
385+ renderStatement statement1 <> " " <> renderStatement statement2
386+
380387newtype PreparedStatement
381388 (params :: [NullityType])
382389 (schema0 :: [(Symbol,[(Symbol,NullityType)])])