From 405519b406174bec161bc4d23deb0551b1ed31ac Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Mon, 30 Sep 2024 18:20:08 +0100 Subject: Make tags for tuples and cases unique. --- src/Inky/Term/Pretty.idr | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Inky/Term/Pretty.idr') diff --git a/src/Inky/Term/Pretty.idr b/src/Inky/Term/Pretty.idr index 71028ba..7c5ee4d 100644 --- a/src/Inky/Term/Pretty.idr +++ b/src/Inky/Term/Pretty.idr @@ -31,10 +31,10 @@ prettyAllCheck : List (CheckTerm tyCtx tmCtx) -> Prec -> List (Doc ann) prettyCheckCtx : {tyCtx, tmCtx : Context ()} -> - Context (CheckTerm tyCtx tmCtx) -> Prec -> List (Doc ann) + Row (CheckTerm tyCtx tmCtx) -> Prec -> List (Doc ann) prettyCheckCtxBinding : {tyCtx, tmCtx : Context ()} -> - Context (x ** CheckTerm tyCtx (tmCtx :< (x :- ()))) -> Prec -> List (Doc ann) + Row (x ** CheckTerm tyCtx (tmCtx :< (x :- ()))) -> Prec -> List (Doc ann) prettySynth (Var i) d = pretty (unVal $ nameOf i) prettySynth (Lit k) d = pretty k -- cgit v1.2.3