From 31f7b7f6c38d60163109f250d4523f62e2aafff6 Mon Sep 17 00:00:00 2001
From: parsonsmatt <parsonsmatt@gmail.com>
Date: Thu, 29 Oct 2020 07:23:16 -0600
Subject: [PATCH] fix parse error

---
 src/Database/Esqueleto/Internal/Internal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Database/Esqueleto/Internal/Internal.hs b/src/Database/Esqueleto/Internal/Internal.hs
index 24dbe53..63d45a2 100644
--- 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)