diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2024-01-22 12:11:20 +0000 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2024-01-22 12:11:20 +0000 |
| commit | f0f44fe7815435836bc625e837e891188ae8d801 (patch) | |
| tree | a695ae6fee918ffa653502ad000e75997d221d75 /src/Term/Compile.idr | |
| parent | 5d5807f215805f1e235a0ad0546f995dd19a6767 (diff) | |
Fix some bug?
I don't really know. I haven't read this in a long time.
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 |