From 70de4a7e6d32bb6033c0ca1a609e24983bbd1af4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 26 Jul 2023 15:07:29 -0400 Subject: [PATCH] fix bug in match result display simplifier Sponsored-by: Dartmouth College's DANDI project --- Utility/Matcher.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/Matcher.hs b/Utility/Matcher.hs index ac9df58e2b..23dec0c22f 100644 --- a/Utility/Matcher.hs +++ b/Utility/Matcher.hs @@ -234,7 +234,7 @@ describeMatchResult descop l prefix = Just $ -- Remove unncessary outermost parens simplify True (MatchedOpen:rest) = case lastMaybe rest of - Just MatchedClose -> simplify True (dropFromEnd 1 rest) + Just MatchedClose -> simplify False (dropFromEnd 1 rest) _ -> simplify False rest -- (foo or bar) or baz => foo or bar or baz simplify _ (MatchedOpen:o1@(MatchedOperation {}):MatchedOr:o2@(MatchedOperation {}):MatchedClose:MatchedOr:rest) = -- 2.30.2