Skip to content

GitLab

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

add unit type (print type as ())

parent 1426b396
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 0 deletions
frontend/typesupport.icl
View file @ dea82d2a
......@@ -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