khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-29 14:45:51 +03:00
Code Issues Projects Releases Wiki Activity

Integrate binary operator signatures.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-17 18:40:55 +09:00
parent a7e1778b31
commit 2711df6c0b
1 changed files with 9 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
sql-words/src/Language/SQL/Keyword/Concat.hs
View File

@ -53,38 +53,21 @@ defineBinOp op a b = word . unwords $ [a, b] `sepBy'` op
as :: Keyword -> Keyword -> Keyword
as = defineBinOp AS
(<.>) :: Keyword -> Keyword -> Keyword
(<.>) = defineBinOp' "."
(<.>) = defineBinOp' "."
(.||.) :: Keyword -> Keyword -> Keyword
(.||.) = defineBinOp "||"
(.=.) :: Keyword -> Keyword -> Keyword
(.=.) = defineBinOp "="
(.<.) :: Keyword -> Keyword -> Keyword
(.<.) = defineBinOp "<"
(.<=.) :: Keyword -> Keyword -> Keyword
(.=.) = defineBinOp "="
(.<.) = defineBinOp "<"
(.<=.) = defineBinOp "<="
(.>.) :: Keyword -> Keyword -> Keyword
(.>.) = defineBinOp ">"
(.>=.) :: Keyword -> Keyword -> Keyword
(.>.) = defineBinOp ">"
(.>=.) = defineBinOp ">="
(.<>.) :: Keyword -> Keyword -> Keyword
(.<>.) = defineBinOp "<>"
and = defineBinOp AND
or = defineBinOp OR
in' = defineBinOp IN
and :: Keyword -> Keyword -> Keyword
and = defineBinOp AND
or :: Keyword -> Keyword -> Keyword
or = defineBinOp OR
in' :: Keyword -> Keyword -> Keyword
in' = defineBinOp IN
(<.>), (.||.), (.=.), (.<.), (.<=.), (.>.), (.>=.), (.<>.), and, or, in'
:: Keyword -> Keyword -> Keyword
infixr 5 .||.
infixr 4 .=., .<., .<=., .>., .>=., .<>.