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

Added tests for new added sqlserver dialect syntax.

Browse source
This commit is contained in:
Bartosz Wójcik 2021-12-02 16:50:35 +01:00
parent efd4dea6ff
commit 61275461b5
3 changed files with 19 additions and 3 deletions
Language/SQL/SimpleSQL
Pretty.lhs

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

@ -254,6 +254,11 @@ Try to do this when this code is ported to a modern pretty printing lib.
> scalarExpr d (OdbcFunc e) =
> text "{fn" <+> scalarExpr d e <> text "}"
> scalarExpr d (Convert t e Nothing) =
> text "convert(" <> typeName t <> text "," <+> scalarExpr d e <> text ")"
> scalarExpr d (Convert t e (Just i)) =
> text "convert(" <> typeName t <> text "," <+> scalarExpr d e <> text "," <+> text (show i) <> text ")"
> unname :: Name -> String
> unname (Name Nothing n) = n
> unname (Name (Just (s,e)) n) =