From 17a843648636eb9d8575411fd8a5a3b1b414a9cc Mon Sep 17 00:00:00 2001
From: alimarin
Date: Tue, 11 Jun 2002 14:24:28 +0000
Subject: added comparison for TArrow and TArrow1 to comparedefimp

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

(limited to 'frontend')

diff --git a/frontend/comparedefimp.icl b/frontend/comparedefimp.icl
index 9acbb72..bb35b8f 100644
--- a/frontend/comparedefimp.icl
+++ b/frontend/comparedefimp.icl
@@ -219,6 +219,10 @@ where
 		= compare (dclIdent.type_index, (dclArgs,dclStrictness)) (iclIdent.type_index, (iclArgs,iclStrictness)) comp_st
 	compare (dclFun --> dclArg) (iclFun --> iclArg) comp_st
 		= compare (dclFun, dclArg) (iclFun, iclArg) comp_st
+	compare (TArrow1 dclArg) (TArrow1 iclArg) comp_st
+		= compare dclArg iclArg comp_st
+	compare TArrow TArrow comp_st
+		= (True, comp_st)
 	compare (CV dclVar :@: dclArgs) (CV iclVar :@: iclArgs) comp_st
 		= compare (dclVar, dclArgs) (iclVar, iclArgs) comp_st
 	compare (TB dclDef) (TB iclDef) comp_st
-- 
cgit v1.2.3