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

Renamed operator.

Browse Source
This commit is contained in:
Kei Hibino 2013-09-04 00:02:05 +09:00
parent ab316959de
commit e1cff556b4
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,9 +37,9 @@ module Database.Relational.Query.Projectable (
(.=.), (.<.), (.<=.), (.>.), (.>=.), (.<>.),
in', isNull, isNotNull, and, or,
in', and', or,
not', exists,
isNull, isNotNull, not', exists,
(.||.), (?||?),
(.+.), (.-.), (./.), (.*.),
@ -53,7 +53,7 @@ module Database.Relational.Query.Projectable (
ProjectableMaybe (just, flattenMaybe)
) where
import Prelude hiding (and, or, pi)
import Prelude hiding (or, pi)
import Data.String (IsString)
import Control.Applicative ((<$>))
@ -220,9 +220,9 @@ monoBinOp = unsafeBinOp
(.<>.) = compareBinOp (SQLs..<>.)
-- | Logical operator corresponding SQL /AND/ .
and :: (SqlProjectable p, ProjectableShowSql p)
=> p ft -> p ft -> p (Maybe Bool)
and = compareBinOp SQLs.and
and' :: (SqlProjectable p, ProjectableShowSql p)
=> p ft -> p ft -> p (Maybe Bool)
and' = compareBinOp SQLs.and
-- | Logical operator corresponding SQL /OR/ .
or :: (SqlProjectable p, ProjectableShowSql p)
@ -404,6 +404,6 @@ infixl 7 .*., ./., ?*?, ?/?
infixl 6 .+., .-., ?+?, ?-?
infixl 5 .||., ?||?
infix 4 .=., .<>., .>., .>=., .<., .<=., `in'`
infixr 3 `and`
infixr 3 `and'`
infixr 2 `or`
infixl 1 ><