1
Fork 0

add support for typenames with precision and scale

This commit is contained in:
Jake Wheat 2013-12-17 19:52:14 +02:00
parent 60d1b446db
commit 558d44140a
5 changed files with 31 additions and 8 deletions
Language/SQL/SimpleSQL

View file

@ -121,7 +121,10 @@
> deriving (Eq,Show,Read)
> -- | Represents a type name, used in casts.
> data TypeName = TypeName String deriving (Eq,Show,Read)
> data TypeName = TypeName String
> | PrecTypeName String Int
> | Prec2TypeName String Int Int
> deriving (Eq,Show,Read)
> -- | Used for 'expr in (scalar expression list)', and 'expr in