cd6faaf · squeal · git.iko.soy

git.iko.soy/squeal

missing fixities

#41

commitcd6faaff16d36ac14529647b21251c39d56e62be authorEitan Chatav <eitan.chatav@gmail.com> dateSat 18 Aug 2018, 12:55 (8 years ago) parent2b0884e

2 files changed+14

compare with dev

unifiedsplit

squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+13 squeal-postgresql/src/Squeal/PostgreSQL/Render.hs+1

squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+13

@@ -725,6 +725,7 @@ not_ = unsafeUnaryOp "NOT"

725725 :: Condition schema from grouping params

726726 -> Condition schema from grouping params

727727 -> Condition schema from grouping params

728+infixr 3 .&&

728729(.&&) = unsafeBinaryOp "AND"

729730

730731-- | >>> printSQL $ true .|| false

@@ -733,6 +734,7 @@ not_ = unsafeUnaryOp "NOT"

733734 :: Condition schema from grouping params

734735 -> Condition schema from grouping params

735736 -> Condition schema from grouping params

737+infixr 2 .||

736738(.||) = unsafeBinaryOp "OR"

737739

738740-- | >>> :{

@@ -949,6 +951,7 @@ Table 9.44: json and jsonb operators

949951 => Expression schema from grouping params (nullity json)

950952 -> Expression schema from grouping params (nullity key)

951953 -> Expression schema from grouping params ('Null json)

954+infixl 8 .->

952955(.->) = unsafeBinaryOp "->"

953956

954957-- | Get JSON value (object field or array element) at a key, as text.

@@ -957,6 +960,7 @@ Table 9.44: json and jsonb operators

957960 => Expression schema from grouping params (nullity json)

958961 -> Expression schema from grouping params (nullity key)

959962 -> Expression schema from grouping params ('Null 'PGtext)

963+infixl 8 .->>

960964(.->>) = unsafeBinaryOp "->>"

961965

962966-- | Get JSON value at a specified path.

@@ -965,6 +969,7 @@ Table 9.44: json and jsonb operators

965969 => Expression schema from grouping params (nullity json)

966970 -> Expression schema from grouping params (nullity path)

967971 -> Expression schema from grouping params ('Null json)

972+infixl 8 .#>

968973(.#>) = unsafeBinaryOp "#>"

969974

970975-- | Get JSON value at a specified path as text.

@@ -973,6 +978,7 @@ Table 9.44: json and jsonb operators

973978 => Expression schema from grouping params (nullity json)

974979 -> Expression schema from grouping params (nullity path)

975980 -> Expression schema from grouping params ('Null 'PGtext)

981+infixl 8 .#>>

976982(.#>>) = unsafeBinaryOp "#>>"

977983

978984-- Additional jsonb operators

@@ -983,6 +989,7 @@ Table 9.44: json and jsonb operators

983989 :: Expression schema from grouping params (nullity 'PGjsonb)

984990 -> Expression schema from grouping params (nullity 'PGjsonb)

985991 -> Condition schema from grouping params

992+infixl 9 .@>

986993(.@>) = unsafeBinaryOp "@>"

987994

988995-- | Are the left JSON path/value entries contained at the top level within the

@@ -991,6 +998,7 @@ Table 9.44: json and jsonb operators

991998 :: Expression schema from grouping params (nullity 'PGjsonb)

992999 -> Expression schema from grouping params (nullity 'PGjsonb)

9931000 -> Condition schema from grouping params

1001+infixl 9 .<@

9941002(.<@) = unsafeBinaryOp "<@"

9951003

9961004-- | Does the string exist as a top-level key within the JSON value?

@@ -998,6 +1006,7 @@ Table 9.44: json and jsonb operators

9981006 :: Expression schema from grouping params (nullity 'PGjsonb)

9991007 -> Expression schema from grouping params (nullity 'PGtext)

10001008 -> Condition schema from grouping params

1009+infixl 9 .?

10011010(.?) = unsafeBinaryOp "?"

10021011

10031012-- | Do any of these array strings exist as top-level keys?

@@ -1005,6 +1014,7 @@ Table 9.44: json and jsonb operators

10051014 :: Expression schema from grouping params (nullity 'PGjsonb)

10061015 -> Expression schema from grouping params (nullity ('PGvararray ('NotNull 'PGtext)))

10071016 -> Condition schema from grouping params

1017+infixl 9 .?|

10081018(.?|) = unsafeBinaryOp "?|"

10091019

10101020-- | Do all of these array strings exist as top-level keys?

@@ -1012,6 +1022,7 @@ Table 9.44: json and jsonb operators

10121022 :: Expression schema from grouping params (nullity 'PGjsonb)

10131023 -> Expression schema from grouping params (nullity ('PGvararray ('NotNull 'PGtext)))

10141024 -> Condition schema from grouping params

1025+infixl 9 .?&

10151026(.?&) = unsafeBinaryOp "?&"

10161027

10171028-- | Concatenate two jsonb values into a new jsonb value.

@@ -1036,6 +1047,7 @@ instance

10361047 => Expression schema from grouping params (nullity 'PGjsonb)

10371048 -> Expression schema from grouping params (nullity key)

10381049 -> Expression schema from grouping params (nullity 'PGjsonb)

1050+infixl 6 .-.

10391051(.-.) = unsafeBinaryOp "-"

10401052

10411053-- | Delete the field or element with specified path (for JSON arrays, negative

@@ -1045,6 +1057,7 @@ instance

10451057 => Expression schema from grouping params (nullity 'PGjsonb)

10461058 -> Expression schema from grouping params (nullity arrayty)

10471059 -> Expression schema from grouping params (nullity 'PGjsonb)

1060+infixl 6 #-.

10481061(#-.) = unsafeBinaryOp "#-"

10491062

10501063{-----------------------------------------

squeal-postgresql/src/Squeal/PostgreSQL/Render.hs+1

@@ -54,6 +54,7 @@ parenthesized str = "(" <> str <> ")"

5454

5555-- | Concatenate two `ByteString`s with a space between.

5656(<+>) :: ByteString -> ByteString -> ByteString

57+infixr 7 <+>

5758str1 <+> str2 = str1 <> " " <> str2

5859

5960-- | Comma separate a list of `ByteString`s.