From d9ea6e783ee5a5688671c8db5f123ebfaf7d8987 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 17 Jul 2019 15:29:12 -0400 Subject: [PATCH] Correct the precedences of pretty-printing for :. and :=. --- semantic-core/src/Data/Core/Pretty.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/semantic-core/src/Data/Core/Pretty.hs b/semantic-core/src/Data/Core/Pretty.hs index 1d7e32887..70cc97197 100644 --- a/semantic-core/src/Data/Core/Pretty.hs +++ b/semantic-core/src/Data/Core/Pretty.hs @@ -94,12 +94,12 @@ prettify style = \case Load (Const p) -> "load" `appending` p Edge Lexical (Const n) -> "lexical" `appending` n Edge Import (Const n) -> "import" `appending` n - Const item :. Const body -> inParens 5 $ do + Const item :. Const body -> inParens 4 $ do f <- item g <- body pure (f <> symbol "." <> g) - Const lhs := Const rhs -> inParens 4 $ do + Const lhs := Const rhs -> inParens 3 $ do f <- lhs g <- rhs pure (f <+> symbol "=" <+> g)