1 files changed, 6 insertions, 2 deletions
diff --git a/src/AST/Pretty.hs b/src/AST/Pretty.hs
index ba1b756..1dc9dd3 100644
--- a/src/AST/Pretty.hs
+++ b/src/AST/Pretty.hs
@@ -133,6 +133,10 @@ ppExpr' d val = \case
       showString ("fold1 (\\" ++ name1 ++ " " ++ name2 ++ " -> ") . a'
       . showString ") " . b'
 
+  EUnit _ e -> do
+    e' <- ppExpr' 11 val e
+    return $ showParen (d > 10) $ showString "unit " . e'
+
   EConst _ ty v -> return $ showString $ case ty of
     STI32 -> show v ; STI64 -> show v ; STF32 -> show v ; STF64 -> show v ; STBool -> show v
 
@@ -176,12 +180,12 @@ ppExpr' d val = \case
       showString "with " . e1' . showString (" (\\" ++ name ++ " -> ")
       . e2' . showString ")"
 
-  EAccum e1 e2 e3 -> do
+  EAccum1 e1 e2 e3 -> do
     e1' <- ppExpr' 11 val e1
     e2' <- ppExpr' 11 val e2
     e3' <- ppExpr' 11 val e3
     return $ showParen (d > 10) $
-      showString "accum " . e1' . showString " " . e2' . showString " " . e3'
+      showString "accum1 " . e1' . showString " " . e2' . showString " " . e3'
 
   EError _ s -> return $ showParen (d > 10) $ showString ("error " ++ show s)