haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add PersistField constraint to SqlString.

Browse Source
This commit is contained in:
Felipe Lessa 2015-08-05 16:07:41 -03:00
parent e5747fdfbf
commit 1cfe1b11df
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/Database/Esqueleto/Internal/Language.hs
View File

@ -397,15 +397,15 @@ class (Functor query, Applicative query, Monad query) =>
coalesceDefault :: PersistField a => [expr (Value (Maybe a))] -> expr (Value a) -> expr (Value a) coalesceDefault :: PersistField a => [expr (Value (Maybe a))] -> expr (Value a) -> expr (Value a)
-- | @LOWER@ function. -- | @LOWER@ function.
lower_ :: (PersistField a, SqlString a) => expr (Value a) -> expr (Value a) lower_ :: SqlString s => expr (Value s) -> expr (Value s)
-- | @LIKE@ operator. -- | @LIKE@ operator.
like :: (PersistField s, SqlString s) => expr (Value s) -> expr (Value s) -> expr (Value Bool) like :: SqlString s => expr (Value s) -> expr (Value s) -> expr (Value Bool)
-- | @ILIKE@ operator (case-insensitive @LIKE@). -- | @ILIKE@ operator (case-insensitive @LIKE@).
-- --
-- Supported by PostgreSQL only. -- Supported by PostgreSQL only.
-- --
-- /Since: 2.2.3/ -- /Since: 2.2.3/
ilike :: (PersistField s, SqlString s) => expr (Value s) -> expr (Value s) -> expr (Value Bool) ilike :: SqlString s => expr (Value s) -> expr (Value s) -> expr (Value Bool)
-- | The string @'%'@. May be useful while using 'like' and -- | The string @'%'@. May be useful while using 'like' and
-- concatenation ('concat_' or '++.', depending on your -- concatenation ('concat_' or '++.', depending on your
-- database). Note that you always to type the parenthesis, -- database). Note that you always to type the parenthesis,
@ -414,14 +414,14 @@ class (Functor query, Applicative query, Monad query) =>
-- @ -- @
-- name `'like`` (%) ++. 'val' \"John\" ++. (%) -- name `'like`` (%) ++. 'val' \"John\" ++. (%)
-- @ -- @
(%) :: (PersistField s, SqlString s) => expr (Value s) (%) :: SqlString s => expr (Value s)
-- | The @CONCAT@ function with a variable number of -- | The @CONCAT@ function with a variable number of
-- parameters. Supported by MySQL and PostgreSQL. -- parameters. Supported by MySQL and PostgreSQL.
concat_ :: (PersistField s, SqlString s) => [expr (Value s)] -> expr (Value s) concat_ :: SqlString s => [expr (Value s)] -> expr (Value s)
-- | The @||@ string concatenation operator (named after -- | The @||@ string concatenation operator (named after
-- Haskell's '++' in order to avoid naming clash with '||.'). -- Haskell's '++' in order to avoid naming clash with '||.').
-- Supported by SQLite and PostgreSQL. -- Supported by SQLite and PostgreSQL.
(++.) :: (PersistField s, SqlString s) => expr (Value s) -> expr (Value s) -> expr (Value s) (++.) :: SqlString s => expr (Value s) -> expr (Value s) -> expr (Value s)
-- | Execute a subquery @SELECT@ in an expression. Returns a -- | Execute a subquery @SELECT@ in an expression. Returns a
-- list of values. -- list of values.
@ -782,8 +782,8 @@ data LockingKind =
-- If you have a custom data type or @newtype@, feel free to make -- If you have a custom data type or @newtype@, feel free to make
-- it an instance of this class. -- it an instance of this class.
-- --
-- /Since: 2.3.0/ -- /Since: 2.4.0/
class SqlString a where class PersistField a => SqlString a where
-- | /Since: 2.3.0/ -- | /Since: 2.3.0/
instance (a ~ Char) => SqlString [a] where instance (a ~ Char) => SqlString [a] where
@ -797,9 +797,6 @@ instance SqlString TL.Text where
-- | /Since: 2.3.0/ -- | /Since: 2.3.0/
instance SqlString B.ByteString where instance SqlString B.ByteString where
-- | /Since: 2.3.0/
instance SqlString BL.ByteString where
-- | /Since: 2.3.0/ -- | /Since: 2.3.0/
instance SqlString Html where instance SqlString Html where