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