khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-01 13:52:12 +03:00
Code Issues Projects Releases Wiki Activity

Operator renamed like HaskellDB.

Browse Source
This commit is contained in:
Kei Hibino 2013-04-26 17:48:03 +09:00
parent 4b38e94230
commit 855af1173d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,7 +17,7 @@ module Language.SQL.Keyword (
sepBy, parenSepBy, defineBinOp,
as, (<.>),
(<=>), (<<>>), and, or,
(.=.), (.<>.), and, or,
stringMap
) where
@ -102,11 +102,11 @@ as = defineBinOp AS
(<.>) :: Keyword -> Keyword -> Keyword
(<.>) = defineBinOp' "."
(<=>) :: Keyword -> Keyword -> Keyword
(<=>) = defineBinOp "="
(.=.) :: Keyword -> Keyword -> Keyword
(.=.) = defineBinOp "="
(<<>>) :: Keyword -> Keyword -> Keyword
(<<>>) = defineBinOp "<>"
(.<>.) :: Keyword -> Keyword -> Keyword
(.<>.) = defineBinOp "<>"
and :: Keyword -> Keyword -> Keyword
and = defineBinOp AND
@ -116,7 +116,7 @@ or = defineBinOp OR
infixl 4 `and`
infixl 3 `or`
infixl 2 <=>, <<>>
infixl 2 .=., .<>.
stringMap :: (String -> String) -> Keyword -> Keyword