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

add SqlCast composite key error

Browse Source
This commit is contained in:
Harpo Reder 2018-07-15 06:08:23 +00:00
parent c9ff21d30a
commit 2e16c72154
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Database/Esqueleto/Internal/Sql.hs
View File

@ -102,6 +102,7 @@ data CompositeKeyError =
| FoldHelpError | FoldHelpError
| SqlCaseError | SqlCaseError
| SqlBinOpError | SqlBinOpError
| SqlCastAsError
| MakeOnClauseError | MakeOnClauseError
| MakeExcError | MakeExcError
| MakeSetError | MakeSetError
@ -766,13 +767,14 @@ unsafeSqlFunctionParens name arg =
uncommas' $ map (\(ERaw p f) -> first (parensM p) (f info)) $ toArgList arg uncommas' $ map (\(ERaw p f) -> first (parensM p) (f info)) $ toArgList arg
in (name <> parens argsTLB, argsVals) in (name <> parens argsTLB, argsVals)
-- | (Internal) An explicit SQL type cast using CAST(value as type).
-- | explicit cast using CAST(value as type) -- See 'unsafeSqlBinOp' for warnings.
unsafeSqlCastAs :: T.Text -> SqlExpr (Value a) -> SqlExpr (Value b) unsafeSqlCastAs :: T.Text -> SqlExpr (Value a) -> SqlExpr (Value b)
unsafeSqlCastAs t (ERaw p f) = unsafeSqlCastAs t (ERaw p f) =
ERaw Never $ \info -> ERaw Never $ \info ->
let (b, v) = f info let (b, v) = f info
in ("CAST" <> parens ( parensM p b <> " AS " <> TLB.fromText t), v ) in ("CAST" <> parens ( parensM p b <> " AS " <> TLB.fromText t), v )
unsafeSqlCastAs _ (ECompositeKey _) = throw (CompositeKeyErr SqlCastAsError)
class UnsafeSqlFunctionArgument a where class UnsafeSqlFunctionArgument a where
toArgList :: a -> [SqlExpr (Value ())] toArgList :: a -> [SqlExpr (Value ())]