From ed5aa2919955d81fc27042a95539f5a3e126ccc7 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Thu, 3 Apr 2014 13:28:45 +0000
Subject: add unit type (print type as ())

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2366 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/typesupport.icl | 2 ++
 1 file changed, 2 insertions(+)

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)
-- 
cgit v1.2.3