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

Remove concrete unary operator.

Browse Source
This commit is contained in:
Kei Hibino 2013-09-03 23:39:18 +09:00
parent 6ad47d791f
commit c184c96b1f
2 changed files with 2 additions and 10 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

@ -25,7 +25,7 @@ module Language.SQL.Keyword.Concat (
(.||.),
(.=.), (.<.), (.<=.), (.>.), (.>=.), (.<>.),
and, or, not, in',
and, or, in',
-- * Unary operator
defineUniOp
@ -124,10 +124,6 @@ or = defineBinOp OR
defineUniOp :: Keyword -> Keyword -> Keyword
defineUniOp op e = unwords' [op, e]
-- | Uni `NOT` operator for SQL boolean expression.
not :: Keyword -> Keyword
not e = unwords' [NOT, e]
-- | Binary `IN` operator for SQL.
in' :: Keyword -> Keyword -> Keyword
in' = defineBinOp IN

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

@ -22,7 +22,7 @@ module Language.SQL.Keyword.ConcatString (
(.||.),
(.=.), (.<.), (.<=.), (.>.), (.>=.), (.<>.),
and, or, not, in',
and, or, in',
-- * Unary operator
defineUniOp
@ -92,10 +92,6 @@ or = defineBinOp OR
defineUniOp :: Keyword -> String -> String
defineUniOp op e = unwords [wordShow op, e]
-- | Uni `NOT` operator for SQL boolean expression.
not :: String -> String
not e = unwords [wordShow NOT, e]
-- | Binary `IN` operator for SQL.
in' :: String -> String -> String
in' = defineBinOp IN