From 58d4d0b47f5e609e21132f48b727de37d06b6777 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Thu, 7 Nov 2024 23:58:03 +0100
Subject: Remove build1

---
 src/AST/Pretty.hs | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'src/AST/Pretty.hs')

diff --git a/src/AST/Pretty.hs b/src/AST/Pretty.hs
index 677c767..76424fe 100644
--- a/src/AST/Pretty.hs
+++ b/src/AST/Pretty.hs
@@ -110,13 +110,6 @@ ppExpr' d val = \case
   EConstArr _ _ ty v
     | Dict <- scalRepIsShow ty -> return $ showsPrec d v
 
-  EBuild1 _ a b -> do
-    a' <- ppExpr' 11 val a
-    name <- genNameIfUsedIn' "i" (STScal STI64) IZ b
-    b' <- ppExpr' 0 (Const name `SCons` val) b
-    return $ showParen (d > 10) $
-      showString "build1 " . a' . showString (" (\\" ++ name ++ " -> ") . b' . showString ")"
-
   EBuild _ n a b -> do
     a' <- ppExpr' 11 val a
     name <- genNameIfUsedIn' "i" (tTup (sreplicate n tIx)) IZ b
-- 
cgit v1.2.3-70-g09d2