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
@@ -114,7 +114,7 @@ module Database.Beam.Postgres.PgSpecific
   )
 where
 
-import           Database.Beam hiding (char, double)
+import           Database.Beam hiding ((||.), char, double)
 import           Database.Beam.Backend.SQL
 import           Database.Beam.Migrate ( HasDefaultSqlDataType(..) )
 import           Database.Beam.Postgres.Syntax
@@ -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 (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.