rename BindName.name to .val

2023-09-20 21:58:27 +02:00 · 2023-09-20 21:58:27 +02:00 · ee22486e97
commit ee22486e97
parent 08fb686bf6
4 changed files with 4 additions and 4 deletions
--- a/lib/Quox/Syntax/Term/Pretty.idr
+++ b/lib/Quox/Syntax/Term/Pretty.idr
@ -513,7 +513,7 @@ prettyElim dnames tnames (CaseNat qty qtyIH nat ret zero succ _) = do
      [< p, ih] = succ.names
  spat0 <- [|succD <++> prettyTBind p|]
  ihpat0 <- map hcat $ sequence [prettyQty qtyIH, dotD, prettyTBind ih]
-  spat <- if ih.name == Unused
+  spat <- if ih.val == Unused
          then pure spat0
          else pure $ hsep [spat0 <+> !commaD, ihpat0]
  let sarm = MkCaseArm spat [<] [< p, ih] succ.term