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

use explicit data type for sign in interval literals

Browse source
This commit is contained in:
Jake Wheat 2016-02-22 23:25:00 +02:00
parent d52b5efc8b
commit c56a1c8fc8
4 changed files with 12 additions and 6 deletions
tools/Language/SQL/SimpleSQL
SQL2011Queries.lhs

4
tools/Language/SQL/SimpleSQL/SQL2011Queries.lhs
View file

@ -711,9 +711,9 @@ TODO: unicode escape
> ,("interval '1' day(3)"
> ,IntervalLit Nothing "1" (Itf "day" $ Just (3,Nothing)) Nothing)
> ,("interval + '1' day(3)"
> ,IntervalLit (Just True) "1" (Itf "day" $ Just (3,Nothing)) Nothing)
> ,IntervalLit (Just Plus) "1" (Itf "day" $ Just (3,Nothing)) Nothing)
> ,("interval - '1' second(2,2)"
> ,IntervalLit (Just False) "1" (Itf "second" $ Just (2,Just 2)) Nothing)
> ,IntervalLit (Just Minus) "1" (Itf "second" $ Just (2,Just 2)) Nothing)
> ,("interval '1' year to month"
> ,IntervalLit Nothing "1" (Itf "year" Nothing)
> (Just $ Itf "month" Nothing))