From 0d259aa8ba11264e95626cdb31ba8fce5f3da164 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Wed, 26 Mar 2008 11:33:34 +0000
Subject: handle NewType in function isTypeSynonym

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

(limited to 'frontend')

diff --git a/frontend/typereify.icl b/frontend/typereify.icl
index ed7cf70..2ce4f95 100644
--- a/frontend/typereify.icl
+++ b/frontend/typereify.icl
@@ -67,6 +67,8 @@ instance isTypeSynonym TypeRhs where
 		=	False
 	isTypeSynonym (AbstractSynType _ _)
 		=	False
+	isTypeSynonym (NewType _)
+		=	False
 
 add_dcl_type_fun_types :: TypeSymbIdent Int *{#DclModule} *VarHeap *SymbolTable
 							-> (*{#DclModule}, *VarHeap, *SymbolTable)
-- 
cgit v1.2.3