Added Postgres specific || operator for concatenating two jsonb values

into a new json value.

Author: mputz86

beam-postgres/Database/Beam/Postgres/PgSpecific.hs

@@ -32,7 +32,7 @@ module Database.Beam.Postgres.PgSpecific
 
   , (@>), (<@), (->#), (->$)
   , (->>#), (->>$), (#>), (#>>)
-  , (?), (?|), (?&)
+  , (?), (?|), (?&), (||.)
 
   , withoutKey, withoutIdx
   , withoutKeys
@@ -960,6 +960,13 @@ QExpr a ?| QExpr b =
 QExpr a ?& QExpr b =
   QExpr (pgBinOp "?&" <$> a <*> b)
 
+-- | Postgres @||@ operator. Concatenates two jsonb values into a new jsonb value.
+(||.) :: QGenExpr ctxt Postgres s (PgJSONB a)
+      -> QGenExpr ctxt Postgres s (PgJSONB a)
+      -> QGenExpr ctxt Postgres s (PgJSONB a)
+QExpr a ||. QExpr b =
+  QExpr (Pg.pgBinOp "||" <$> a <*> b)
+
 -- | Postgres @-@ operator on json objects. Returns the supplied json object
 -- with the supplied key deleted. See 'withoutIdx' for the corresponding
 -- operator on arrays.