From fbd51aec2830c6a2eca0f92af1163664a608e194 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sat, 26 Oct 2024 21:26:23 +0200
Subject: Fix {} usage in pretty-printing of ELet

---
 src/AST/Pretty.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/AST/Pretty.hs b/src/AST/Pretty.hs
index acd0dc3..a05b49e 100644
--- a/src/AST/Pretty.hs
+++ b/src/AST/Pretty.hs
@@ -220,8 +220,8 @@ ppExprLet d val etop = do
   (binds, core) <- collect val etop
 
   let (open, close) = case binds of
-        [_] -> ("{ ", " }")
-        _ -> ("", "")
+        [_] -> ("", "")
+        _ -> ("{ ", " }")
   return $ showParen (d > 0) $
     showString ("let " ++ open)
     . foldr (.) id
-- 
cgit v1.2.3-70-g09d2