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

fix parse error

Browse Source
This commit is contained in:
parsonsmatt 2020-10-29 07:23:16 -06:00
parent ea032a9fc5
commit 31f7b7f6c3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Database/Esqueleto/Internal/Internal.hs
View File

@ -2299,7 +2299,7 @@ unsafeSqlExtractSubField
unsafeSqlExtractSubField subField arg = unsafeSqlExtractSubField subField arg =
ERaw Never $ \info -> ERaw Never $ \info ->
let (argsTLB, argsVals) = let (argsTLB, argsVals) =
uncommas' $ map (valueToFunctionArg info) $ toArgList arg uncommas' $ map (valueToFunctionArg info) $ toArgList arg
in in
("EXTRACT" <> parens (subField <> " FROM " <> argsTLB), argsVals) ("EXTRACT" <> parens (subField <> " FROM " <> argsTLB), argsVals)