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)