From 298e88f1a5b98b24b6ab9ef673dd44d4c0078c97 Mon Sep 17 00:00:00 2001 From: Benjamin Loison Date: Sun, 11 Dec 2022 22:25:11 +0100 Subject: [PATCH] Simplify `ETriOp` case in `src/ast_to_c.ml` --- src/ast_to_c.ml | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/ast_to_c.ml b/src/ast_to_c.ml index 01db3fa..bef25dc 100644 --- a/src/ast_to_c.ml +++ b/src/ast_to_c.ml @@ -156,8 +156,7 @@ let pp_expression node_name = pp_expression_aux arg' end | ETriOp (_, top, arg, arg', arg'') -> - begin match top with - | TOp_if | TOp_merge -> + begin Format.fprintf fmt "%a ? %a : %a" pp_expression_aux arg pp_expression_aux arg'