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

Integrate signature of binary operators.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-17 18:51:34 +09:00
parent 2711df6c0b
commit b59e5586fb
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -50,9 +50,6 @@ defineBinOp' op a b = concat' $ [a, b] `sepBy'` op
defineBinOp :: Keyword -> Keyword -> Keyword -> Keyword
defineBinOp op a b = word . unwords $ [a, b] `sepBy'` op
as :: Keyword -> Keyword -> Keyword
as = defineBinOp AS
(<.>) = defineBinOp' "."
(.||.) = defineBinOp "||"
@ -62,11 +59,12 @@ as = defineBinOp AS
(.>.) = defineBinOp ">"
(.>=.) = defineBinOp ">="
(.<>.) = defineBinOp "<>"
as = defineBinOp AS
and = defineBinOp AND
or = defineBinOp OR
in' = defineBinOp IN
(<.>), (.||.), (.=.), (.<.), (.<=.), (.>.), (.>=.), (.<>.), and, or, in'
(<.>), (.||.), (.=.), (.<.), (.<=.), (.>.), (.>=.), (.<>.), as, and, or, in'
:: Keyword -> Keyword -> Keyword
infixr 5 .||.