diff options
Diffstat (limited to 'src/Term/Compile.idr')
| -rw-r--r-- | src/Term/Compile.idr | 5 |
1 files changed, 0 insertions, 5 deletions
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 |