@@ -94,6 +94,7 @@ module Squeal.PostgreSQL.Schema
97 -- * Type Classifications
98 -- * Type Classifications
98 , HasOid (..)
99 , HasOid (..)
@@ -769,3 +770,11 @@ single step = step :>> Done
769-- | A useful operator for ending an `NP` list of length at least 2 without `Nil`.
770-- | A useful operator for ending an `NP` list of length at least 2 without `Nil`.
770(*:) :: f x -> f y -> NP f '[x,y]
771(*:) :: f x -> f y -> NP f '[x,y]
771x *: y = x :* y :* Nil
772x *: y = x :* y :* Nil
775+-- | Concatenate `NP` lists.
776+(+++) :: NP f xs -> NP f ys -> NP f (Join xs ys)
777+xs +++ ys = case xs of
779+ x :* xs' -> x :* (xs' +++ ys)