Fix a missing case for new Blank

unisonweb · Jan 29, 2024 · e1f28f8 · e1f28f8
1 parent 2778dcc
commit e1f28f8
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/unison-core/src/Unison/Term.hs b/unison-core/src/Unison/Term.hs
@@ -1594,6 +1594,7 @@ instance (Show v, Show a) => Show (F v a0 p a) where
         B.Recorded (B.Placeholder _ r) -> s ("_" ++ r)
         B.Recorded (B.Resolve _ r) -> s r
         B.Recorded (B.MissingResultPlaceholder _) -> s "_"
+        B.Retain -> s "_"
       go _ (Ref r) = s "Ref(" <> shows r <> s ")"
       go _ (TermLink r) = s "TermLink(" <> shows r <> s ")"
       go _ (TypeLink r) = s "TypeLink(" <> shows r <> s ")"