diff --git a/hasql-th.cabal b/hasql-th.cabal
--- a/hasql-th.cabal
+++ b/hasql-th.cabal
@@ -1,5 +1,5 @@
 name: hasql-th
-version: 0.4.0.17
+version: 0.4.0.18
 category: Hasql, Database, PostgreSQL, Template Haskell
 synopsis: Template Haskell utilities for Hasql
 description:
diff --git a/library/Hasql/TH/Construction/Exp.hs b/library/Hasql/TH/Construction/Exp.hs
--- a/library/Hasql/TH/Construction/Exp.hs
+++ b/library/Hasql/TH/Construction/Exp.hs
@@ -108,9 +108,9 @@
 -- Lambda expression, which destructures 'Fold'.
 foldLam :: (Exp -> Exp -> Exp -> Exp) -> Exp
 foldLam _body =
-  let _stepVarName = mkName "step"
-      _initVarName = mkName "init"
-      _extractVarName = mkName "extract"
+  let _stepVarName = mkName "progress"
+      _initVarName = mkName "start"
+      _extractVarName = mkName "finish"
    in LamE
         [ Compat.conP
             'Fold