Commit dea82d2a authored by John van Groningen's avatar John van Groningen
Browse files

add unit type (print type as ())

parent 1426b396
......@@ -1294,6 +1294,8 @@ writeTypeTA file opt_beautifulizer form {type_ident,type_index,type_arity} types
| type_arity == 0
| predef_index==PD_StringType
= (file <<< "String", opt_beautifulizer)
| predef_index==PD_UnitType
= (file <<< "()", opt_beautifulizer)
= (file <<< type_ident, opt_beautifulizer)
| predef_index==PD_ListType
= writeWithinBrackets "[" "]" file opt_beautifulizer (setProperty form cCommaSeparator, types)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment