cd6faaf · squeal · git.iko.soy

git.iko.soy/squeal

on dev help sign in

missing fixities

cd6faafEitan Chatav8 years ago

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

compare with dev

unifiedsplit

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

725 :: Condition schema from grouping params

726 -> Condition schema from grouping params

727 -> Condition schema from grouping params

728+infixr 3 .&&

728(.&&) = unsafeBinaryOp "AND"

729(.&&) = unsafeBinaryOp "AND"

729

730

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

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

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

733 :: Condition schema from grouping params

734 :: Condition schema from grouping params

734 -> Condition schema from grouping params

735 -> Condition schema from grouping params

736 -> Condition schema from grouping params

737+infixr 2 .||

736(.||) = unsafeBinaryOp "OR"

738(.||) = unsafeBinaryOp "OR"

737

739

738-- | >>> :{

740-- | >>> :{

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

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

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

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

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

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

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

954+infixl 8 .->

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

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

953

956

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

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

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

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

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

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

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

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

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

963+infixl 8 .->>

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

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

961

965

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

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

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

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

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

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

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

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

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

972+infixl 8 .#>

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

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

969

974

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

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

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

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

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

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

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

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

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

981+infixl 8 .#>>

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

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

977

983

978-- Additional jsonb operators

984-- Additional jsonb operators

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

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

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

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

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

985 -> Condition schema from grouping params

991 -> Condition schema from grouping params

992+infixl 9 .@>

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

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

987

994

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

995-- | 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

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

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

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

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

993 -> Condition schema from grouping params

1000 -> Condition schema from grouping params

1001+infixl 9 .<@

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

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

995

1003

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

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

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

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

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

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

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

1000 -> Condition schema from grouping params

1008 -> Condition schema from grouping params

1009+infixl 9 .?

1001(.?) = unsafeBinaryOp "?"

1010(.?) = unsafeBinaryOp "?"

1002

1011

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

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

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

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

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

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

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

1007 -> Condition schema from grouping params

1016 -> Condition schema from grouping params

1017+infixl 9 .?|

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

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

1009

1019

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

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

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

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

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

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

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

1014 -> Condition schema from grouping params

1024 -> Condition schema from grouping params

1025+infixl 9 .?&

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

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

1016

1027

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

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

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

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

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

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

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

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

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

1050+infixl 6 .-.

1039(.-.) = unsafeBinaryOp "-"

1051(.-.) = unsafeBinaryOp "-"

1040

1052

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

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

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

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

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

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

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

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

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

1060+infixl 6 #-.

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

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

1049

1062

1050{-----------------------------------------

1063{-----------------------------------------

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

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

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

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

57+infixr 7 <+>

57str1 <+> str2 = str1 <> " " <> str2

58str1 <+> str2 = str1 <> " " <> str2

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

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