checkpoint before FC

2024-08-05 21:25:10 -07:00
parent 09227e444a
commit f5b1998afb
4 changed files with 10 additions and 3 deletions
--- a/src/Lib/Syntax.idr
+++ b/src/Lib/Syntax.idr
@@ -131,7 +131,7 @@ Show Raw where
  show (RCase x xs) = foo [ "Case", show x, show xs]
  show (RParseError str) = foo [ "ParseError", "str"]
  show RU = "U"
-  show (RSrcPos pos tm) = show tm
+  show (RSrcPos pos tm) = foo [ "#", show tm]


 export