fix parse error

2020-10-29 07:23:16 -06:00 · 2020-10-29 07:23:16 -06:00 · 31f7b7f6c3
commit 31f7b7f6c3
parent ea032a9fc5
1 changed files with 1 additions and 1 deletions
--- a/src/Database/Esqueleto/Internal/Internal.hs
+++ b/src/Database/Esqueleto/Internal/Internal.hs
@ -2299,7 +2299,7 @@ unsafeSqlExtractSubField
 unsafeSqlExtractSubField subField arg =
    ERaw Never $ \info ->
        let (argsTLB, argsVals) =
-            uncommas' $ map (valueToFunctionArg info) $ toArgList arg
+                uncommas' $ map (valueToFunctionArg info) $ toArgList arg
        in
            ("EXTRACT" <> parens (subField <> " FROM " <> argsTLB), argsVals)