starlitcanopy/simple-sql-parser
1
Fork 0
Code Activity

implement reference type name (I think - cannot find any examples or

Browse source 
explanation of what it means, didn't try reading the standard
  itself, just the grammar)
This commit is contained in:
Jake Wheat 2014-04-18 21:48:14 +03:00
parent 3b86a06e5c
commit 7a84704516
4 changed files with 15 additions and 3 deletions
Language/SQL/SimpleSQL
Pretty.lhs

5
Language/SQL/SimpleSQL/Pretty.lhs
View file

@ -284,6 +284,11 @@ which have been changed to try to improve the layout of the output.
> typeName (MultisetTypeName tn) =
> typeName tn <+> text "multiset"
> typeName (RefTypeName rt sc) =
> text "ref"
> <> parens (names rt)
> <+> me (\x -> text "scope" <+> names x) sc
> intervalTypeField :: IntervalTypeField -> Doc
> intervalTypeField (Itf n p) =
> text n