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

Update not definition along with sql-words update.

Browse Source
This commit is contained in:
Kei Hibino 2013-09-03 23:40:14 +09:00
parent c184c96b1f
commit a76b21624c
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
relational-join/src/Database/Relational/Query/Projectable.hs
View File

@ -164,13 +164,12 @@ type SqlBinOp = String -> String -> String
sqlBinOp :: String -> SqlBinOp
sqlBinOp = SQLs.defineBinOp . SQL.word
-- | Unsafely make projection unary operator from SQL operator string.
-- | Unsafely make projection unary operator from SQL keyword.
unsafeUniOp :: (SqlProjectable p, ProjectableShowSql p)
=> (String -> String)
-> p a -> p b
unsafeUniOp op = unsafeProjectSql . paren . op . unsafeShowSql
=> SQL.Keyword -> p a -> p b
unsafeUniOp kw = unsafeProjectSql . paren . SQLs.defineUniOp kw . unsafeShowSql
-- | Unsafely make projection binary operator from SQL operator string.
-- | Unsafely make projection binary operator from string binary operator.
unsafeBinOp :: (SqlProjectable p, ProjectableShowSql p)
=> SqlBinOp
-> p a -> p b -> p c
@ -233,7 +232,7 @@ or = compareBinOp SQLs.or
-- | Logical operator corresponding SQL /NOT/ .
not :: (SqlProjectable p, ProjectableShowSql p)
=> p (Maybe Bool) -> p (Maybe Bool)
not = unsafeUniOp SQLs.not
not = unsafeUniOp SQL.NOT
-- | Logical operator corresponding SQL /EXISTS/ .
exists :: (SqlProjectable p, ProjectableShowSql p)