From 4fbdff58dbf017240fddea1eca5615da655bcc72 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Wed, 5 Nov 2025 22:29:54 +0100
Subject: Fix pretty-printing for Map

---
 src/AST/Pretty.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/AST/Pretty.hs b/src/AST/Pretty.hs
index ecdaa88..bbcfd9e 100644
--- a/src/AST/Pretty.hs
+++ b/src/AST/Pretty.hs
@@ -206,7 +206,7 @@ ppExpr' d val expr = case expr of
 
   EMap _ a b -> do
     let STArr _ t1 = typeOf b
-    name <- genNameIfUsedIn' "i" t1 IZ a
+    name <- genNameIfUsedIn t1 IZ a
     a' <- ppExpr' 0 (Const name `SCons` val) a
     b' <- ppExpr' 11 val b
     return $ ppParen (d > 0) $
-- 
cgit v1.2.3-70-g09d2