diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-11-08 22:17:56 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-11-08 22:17:56 +0100 |
| commit | cbe6472a14cc0887295034bb29546dd1a1f083fd (patch) | |
| tree | 2fa6a20f584d58ac3b89074673990a16cdc7d5b2 /src/AST/Pretty.hs | |
| parent | 4fcdb7118e0084f192753ea6c70394352a27d5ed (diff) | |
WIP maximum/minimum
Diffstat (limited to 'src/AST/Pretty.hs')
| -rw-r--r-- | src/AST/Pretty.hs | 8 |
1 files changed, 8 insertions, 0 deletions
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 |