mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-11-29 06:37:03 +03:00
Add header document. Add keyword 'IN' and binary operator.
This commit is contained in:
parent
046952f390
commit
497ccb1bac
@ -8,6 +8,8 @@
|
||||
-- Maintainer : ex8k.hibino@gmail.com
|
||||
-- Stability : experimental
|
||||
-- Portability : unknown
|
||||
--
|
||||
-- SQL keyword representation using Haskell data constructors.
|
||||
module Language.SQL.Keyword (
|
||||
Keyword (..),
|
||||
|
||||
@ -21,7 +23,7 @@ module Language.SQL.Keyword (
|
||||
|
||||
(.||.),
|
||||
(.=.), (.<.), (.<=.), (.>.), (.>=.), (.<>.),
|
||||
and, or,
|
||||
and, or, in',
|
||||
|
||||
stringMap
|
||||
) where
|
||||
@ -54,7 +56,7 @@ data Keyword = SELECT | ALL | DISTINCT | ON
|
||||
-- | (:+) | (:-) | (:*) | (:/)
|
||||
| AND | OR | NOT
|
||||
|
||||
| IS | NULL
|
||||
| IS | NULL | IN
|
||||
|
||||
-- | OPEN | CLOSE
|
||||
|
||||
@ -138,6 +140,9 @@ and = defineBinOp AND
|
||||
or :: Keyword -> Keyword -> Keyword
|
||||
or = defineBinOp OR
|
||||
|
||||
in' :: Keyword -> Keyword -> Keyword
|
||||
in' = defineBinOp IN
|
||||
|
||||
infixr 5 .||.
|
||||
infixr 4 .=., .<., .<=., .>., .>=., .<>.
|
||||
infixr 3 `and`
|
||||
|
Loading…
Reference in New Issue
Block a user