khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2025-01-05 20:04:49 +03:00
Code Issues Projects Releases Wiki Activity

Use operators defined in Language.SQL.Keyword.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-16 18:40:23 +09:00
parent 497ccb1bac
commit 0219417e7b
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -120,17 +120,13 @@ numBinOp = unsafeBinOp
=> p ft -> p ft -> p Bool
(.<>.) = compareBinOp (SQL..<>.)
compareBinOp' :: (SqlProjectable p, ProjectableSqlTerm p)
=> String -> p ft -> p ft -> p Bool
compareBinOp' = compareBinOp . sqlBinOp
(.>.) :: (SqlProjectable p, ProjectableSqlTerm p)
=> p ft -> p ft -> p Bool
(.>.) = compareBinOp' ">"
(.>.) = compareBinOp (SQL..>.)
(.<.) :: (SqlProjectable p, ProjectableSqlTerm p)
=> p ft -> p ft -> p Bool
(.<.) = compareBinOp' "<"
(.<.) = compareBinOp (SQL..<.)
and :: (SqlProjectable p, ProjectableSqlTerm p)
=> p Bool -> p Bool -> p Bool
@ -154,7 +150,7 @@ numBinOp' = numBinOp . sqlBinOp
in' :: (SqlProjectable p, ProjectableSqlTerm p)
=> p t -> p [t] -> p Bool
in' = unsafeBinOp (sqlBinOp "IN")
in' = unsafeBinOp (SQL.in')
isNull :: (SqlProjectable p, ProjectableSqlTerm p)
=> p (Maybe t) -> p Bool