start work on cast expressions, add lots more test targets

2013-12-13 18:50:41 +02:00 · 2013-12-13 18:50:41 +02:00 · aa26603a0c
commit aa26603a0c
parent a81f62b940
5 changed files with 857 additions and 36 deletions
--- a/Language/SQL/SimpleSQL/Syntax.lhs
+++ b/Language/SQL/SimpleSQL/Syntax.lhs
@ -1,13 +1,14 @@

 > module Language.SQL.SimpleSQL.Syntax
->     (QueryExpr(..)
+>     (ScalarExpr(..)
+>     ,TypeName(..)
+>     ,QueryExpr(..)
 >     ,makeSelect
->     ,ScalarExpr(..)
+>     ,Duplicates(..)
+>     ,Direction(..)
 >     ,TableRef(..)
 >     ,JoinType(..)
 >     ,JoinCondition(..)
->     ,Duplicates(..)
->     ,Direction(..)
 >     ) where


@ -23,8 +24,12 @@
 >                        [(ScalarExpr,ScalarExpr)] -- when branches
 >                        (Maybe ScalarExpr) -- else value
 >                 | Parens ScalarExpr
+>                 | Cast ScalarExpr TypeName
+>                 | CastOp String TypeName
 >                   deriving (Eq,Show)

+> data TypeName = TypeName String deriving (Eq,Show)
+
 > data QueryExpr
 >     = Select
 >       {qeDuplicates :: Duplicates