correctly print unit type

Drup · Jul 31, 2024 · 9779d0b · 9779d0b
1 parent dd5a79e
commit 9779d0b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/common/Type.ml b/lib/common/Type.ml
@@ -227,7 +227,7 @@ end = struct
   let map fn t = of_iter @@ Iter.map fn @@ to_iter t
 
   let pp pp_ty ppf = function
-    | [||] -> Fmt.string ppf "()"
+    | [||] -> Fmt.string ppf "unit"
     | [| elt |] -> pp_ty ppf elt
     | t -> Fmt.pf ppf "@[<2>%a@]" Fmt.(array ~sep:(any " *@ ") pp_ty) t
 end