From cbe6472a14cc0887295034bb29546dd1a1f083fd Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Fri, 8 Nov 2024 22:17:56 +0100 Subject: WIP maximum/minimum --- src/AST/Pretty.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/AST/Pretty.hs') diff --git a/src/AST/Pretty.hs b/src/AST/Pretty.hs index a2232ee..4d9aeec 100644 --- a/src/AST/Pretty.hs +++ b/src/AST/Pretty.hs @@ -141,6 +141,14 @@ ppExpr' d val = \case b' <- ppExpr' 11 val b return $ showParen (d > 10) $ showString "replicate1i " . a' . showString " " . b' + EMaximum1Inner _ e -> do + e' <- ppExpr' 11 val e + return $ showParen (d > 10) $ showString "maximum1i " . e' + + EMinimum1Inner _ e -> do + e' <- ppExpr' 11 val e + return $ showParen (d > 10) $ showString "minimum1i " . e' + EConst _ ty v | Dict <- scalRepIsShow ty -> return $ showsPrec d v -- cgit v1.2.3-70-g09d2