From f0f44fe7815435836bc625e837e891188ae8d801 Mon Sep 17 00:00:00 2001
From: Chloe Brown <chloe.brown.00@outlook.com>
Date: Mon, 22 Jan 2024 12:11:20 +0000
Subject: Fix some bug?

I don't really know. I haven't read this in a long time.
---
 src/Term/Compile.idr | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'src/Term/Compile.idr')

diff --git a/src/Term/Compile.idr b/src/Term/Compile.idr
index dd423ae..ba409a8 100644
--- a/src/Term/Compile.idr
+++ b/src/Term/Compile.idr
@@ -35,10 +35,6 @@ lambda = "lambda"
 lit : Nat -> Doc ann
 lit = pretty
 
-compileArb : Ty -> Doc ann
-compileArb N = pretty 0
-compileArb (ty ~> ty') = parens $ group $ "const" <+> softline <+> compileArb ty'
-
 compileOp : Operator tys ty -> Doc ann
 compileOp (Lit n) = lit n
 compileOp Suc = "1+"
@@ -52,7 +48,6 @@ compileOp (Inl _ _) = identity_
 compileOp (Inr _ _) = identity_
 compileOp (Prl _ _) = identity_
 compileOp (Prr _ _) = identity_
-compileOp (Arb ty) = compileArb ty
 
 parameters (names : Stream String)
   compileFullTerm : (len : Len ctx) => FullTerm ty ctx' -> ctx' `Thins` ctx -> Doc ann
-- 
cgit v1.2.3