implement complete interval literals

2014-04-18 21:38:24 +03:00 · 2014-04-18 21:38:24 +03:00 · 3b86a06e5c
commit 3b86a06e5c
parent f64632bbac
6 changed files with 64 additions and 37 deletions
--- a/Language/SQL/SimpleSQL/Syntax.lhs
+++ b/Language/SQL/SimpleSQL/Syntax.lhs
@ -59,9 +59,10 @@
 >       -- | text of interval literal, units of interval precision,
 >       -- e.g. interval 3 days (3)
 >     | IntervalLit
->       {ilLiteral :: String -- ^ literal text
->       ,ilUnits :: String -- ^ units
->       ,ilPrecision :: Maybe Integer -- ^ precision
+>       {ilSign :: Maybe Bool -- ^ true if + used, false if - used
+>       ,ilLiteral :: String -- ^ literal text
+>       ,ilFrom :: IntervalTypeField
+>       ,ilTo :: Maybe IntervalTypeField
 >       }
 >       -- | identifier with parts separated by dots
 >     | Iden [Name]