Nicer name for 0-ary tuples.

athas · athas · commit 29f902c41df3 · 2026-01-17T22:46:32.000+01:00
diff --git a/src/typename.sml b/src/typename.sml
@@ -194,6 +194,8 @@ local
 
   fun showTSML (TVar s) = s
     | showTSML (TArray t) = "arr_" ^ showTSML t
+    | showTSML (TTuple []) =
+        "unit"
     | showTSML (TTuple ts) =
         "tup" ^ Int.toString (length ts) ^ "_" ^ punctuate "_" (map showTSML ts)
     | showTSML (TRecord ts) =
