From f92378d40b310b43951c12f9e077b6851ab5bb9c Mon Sep 17 00:00:00 2001
From: Rik van Toor <rik.van.toor@gmail.com>
Date: Mon, 14 Aug 2023 15:09:27 +0200
Subject: [PATCH] Update changelog

---
 changelog.md                                                | 6 ++++++
 .../Esqueleto/Experimental/From/CommonTableExpression.hs    | 4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/changelog.md b/changelog.md
index a70c9b7cc..ed2aa0fb7 100644
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,9 @@
+3.5.10.2
+========
+- @RikvanToor
+    - [#373](https://github.com/bitemyapp/esqueleto/pull/373)
+        - Fix name clashes when using CTEs multiple times
+
 3.5.10.1
 ========
 - @9999years
diff --git a/src/Database/Esqueleto/Experimental/From/CommonTableExpression.hs b/src/Database/Esqueleto/Experimental/From/CommonTableExpression.hs
index d1a1f7a57..2a7898b97 100644
--- a/src/Database/Esqueleto/Experimental/From/CommonTableExpression.hs
+++ b/src/Database/Esqueleto/Experimental/From/CommonTableExpression.hs
@@ -56,8 +56,8 @@ with query = do
     pure $ From $ do
         newIdent <- newIdentFor (DBName "cte")
         localRef <- toAliasReference newIdent ref
-        let lh = useIdent info ident <> " AS " <> useIdent info newIdent
-        pure (localRef, (\_ info -> (lh, mempty)))
+        let makeLH info = useIdent info ident <> " AS " <> useIdent info newIdent
+        pure (localRef, (\_ info -> (makeLH info, mempty)))
 
 -- | @WITH@ @RECURSIVE@ allows one to make a recursive subquery, which can
 -- reference itself. Like @WITH@, this is supported in most modern SQL engines.