look through substitutions in Q.S.T.Split

2023-02-26 11:24:28 +01:00 · 2023-02-26 11:24:28 +01:00 · 8447098f28
commit 8447098f28
parent e896b24f58
2 changed files with 85 additions and 35 deletions
--- a/lib/Quox/Syntax/Term/Pretty.idr
+++ b/lib/Quox/Syntax/Term/Pretty.idr
@ -107,8 +107,8 @@ mutual
    prettyM (Sig s (S [x] t)) =
      prettyBindType {q} [] x s !timesD t
    prettyM (Pair s t) =
-      let GotPairs {init, last, _} = getPairs t in
-      prettyTuple $ s :: init ++ [last]
+      let GotPairs {init, last, _} = getPairs' [< s] t in
+      prettyTuple $ toList $ init :< last
    prettyM (Enum tags) =
      pure $ delims "`{" "}" . aseparate comma $ map prettyTag $
        Prelude.toList tags