[ unify ] unify literals correctly

2025-07-26 07:24:38 -07:00
parent 2d53976602
commit 0e110cd14f
3 changed files with 20 additions and 2 deletions
--- a/src/Lib/Types.newt
+++ b/src/Lib/Types.newt
@@ -54,9 +54,9 @@ Tm : U
 data Literal = LString String | LInt Int | LChar Char

 instance Show Literal where
-  show (LString str) = show str
+  show (LString str) = quoteString str
  show (LInt i) = show i
-  show (LChar c) = show c
+  show (LChar c) = "'\{show c}'" -- FIXME single quote

 data CaseAlt : U where
  CaseDefault : Tm -> CaseAlt