From 2373c738ca7da1ad366f26e2ba3cda3df734f13a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ondr=CC=8Cej=20S=CC=8Cebek?= Date: Fri, 9 Aug 2024 17:02:37 +0200 Subject: [PATCH] Put end on separate line when pretty printing definitions ```diff def intersperse = \n. \f2. \f1. - if (n > 0) {f1; if (n > 1) {f2} {}; intersperse (n - 1) f2 f1} {} end + if (n > 0) {f1; if (n > 1) {f2} {}; intersperse (n - 1) f2 f1} {} + end ``` * caused by #1928 where def was made more similar to let --- src/swarm-lang/Swarm/Language/Pretty.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/swarm-lang/Swarm/Language/Pretty.hs b/src/swarm-lang/Swarm/Language/Pretty.hs index c54663484..e5f7a9f2a 100644 --- a/src/swarm-lang/Swarm/Language/Pretty.hs +++ b/src/swarm-lang/Swarm/Language/Pretty.hs @@ -316,7 +316,7 @@ instance PrettyPrec (Term' ty) where ] SLet LSDef _ (LV _ x) mty _ t1 t2 -> mconcat $ - prettyDefinition "def" x mty t1 <+> "end" + sep [prettyDefinition "def" x mty t1, "end"] : case t2 of Syntax' _ (TConst Noop) _ _ -> [] _ -> [hardline, hardline, ppr t2]