diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-10-26 21:26:23 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-10-26 21:26:23 +0200 |
| commit | fbd51aec2830c6a2eca0f92af1163664a608e194 (patch) | |
| tree | bf21b973abc57aa50d818ce3a25435626a8ff73f | |
| parent | af51ad3cdce90ac6afe4727c8713426624ebaecd (diff) | |
Fix {} usage in pretty-printing of ELet
| -rw-r--r-- | src/AST/Pretty.hs | 4 |
1 files 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 |