change collate and in chartype to be a list of names
rearrange and add notes to the parser
This commit is contained in:
parent
4fa21ceea8
commit
fdb90c0440
6 changed files with 404 additions and 238 deletions
Language/SQL/SimpleSQL
|
@ -207,7 +207,7 @@ which have been changed to try to improve the layout of the output.
|
|||
> valueExpr v <+> text "uescape" <+> text [e]
|
||||
|
||||
> valueExpr (Collate v c) =
|
||||
> valueExpr v <+> text "collate" <+> text c
|
||||
> valueExpr v <+> text "collate" <+> names c
|
||||
|
||||
|
||||
> doubleUpQuotes :: String -> String
|
||||
|
@ -262,7 +262,9 @@ which have been changed to try to improve the layout of the output.
|
|||
> <+> (if null cs
|
||||
> then empty
|
||||
> else text "character set" <+> names cs)
|
||||
> <+> me (\x -> text "collate" <+> name x) col
|
||||
> <+> (if null col
|
||||
> then empty
|
||||
> else text "collate" <+> names col)
|
||||
> typeName (TimeTypeName t i tz) =
|
||||
> names t
|
||||
> <> me (\x -> parens (text $ show x)) i
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue