From 5236e402dbf1d2a586d0962e6d2922265bb97027 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Wed, 18 Apr 2007 10:59:20 +0000
Subject: also compare NewTypePatterns

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

diff --git a/frontend/comparedefimp.icl b/frontend/comparedefimp.icl
index 1f8e0f2..b4729b2 100644
--- a/frontend/comparedefimp.icl
+++ b/frontend/comparedefimp.icl
@@ -1093,6 +1093,8 @@ instance e_corresponds CasePatterns where
 	e_corresponds (BasicPatterns dcl_basic_type dcl_patterns) (BasicPatterns icl_basic_type icl_patterns)
 		=	equal2 dcl_basic_type icl_basic_type
 		o`	e_corresponds dcl_patterns icl_patterns
+	e_corresponds (NewTypePatterns _ dcl_patterns) (NewTypePatterns _ icl_patterns)
+		=	e_corresponds dcl_patterns icl_patterns
 	e_corresponds (OverloadedListPatterns dcl_alg_type _ dcl_patterns) (OverloadedListPatterns icl_alg_type _ icl_patterns)
 		=	e_corresponds dcl_patterns icl_patterns
 	e_corresponds (DynamicPatterns dcl_patterns) (DynamicPatterns icl_patterns)
-- 
cgit v1.2.3