diff options
| author | johnvg | 2014-04-03 13:28:45 +0000 |
|---|---|---|
| committer | johnvg | 2014-04-03 13:28:45 +0000 |
| commit | ed5aa2919955d81fc27042a95539f5a3e126ccc7 (patch) | |
| tree | 9a99c66f9a1f7de5d56fdb3c2d7fdbb70f0883e5 | |
| parent | add unit type (diff) | |
add unit type (print type as ())
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2366 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/typesupport.icl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/frontend/typesupport.icl b/frontend/typesupport.icl index 34cbf7e..879861f 100644 --- a/frontend/typesupport.icl +++ b/frontend/typesupport.icl @@ -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) |