From 9f46c94a95f78675d4bf19b5cacaa4b5b04cc89b Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 26 May 1997 01:26:35 +0000
Subject: [PATCH] [project @ 1997-05-26 01:26:35 by sof] Use TyCon.isAlgTyCon

---
 ghc/compiler/typecheck/TcTyDecls.lhs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/typecheck/TcTyDecls.lhs b/ghc/compiler/typecheck/TcTyDecls.lhs
index 11482dd..8cbcf52 100644
--- a/ghc/compiler/typecheck/TcTyDecls.lhs
+++ b/ghc/compiler/typecheck/TcTyDecls.lhs
@@ -56,8 +56,8 @@ import Name		( nameSrcLoc, isLocallyDefined, getSrcLoc,
 			)
 import Outputable	( Outputable(..), interpp'SP )
 import Pretty
-import TyCon		( TyCon, NewOrData(..), mkSynTyCon, mkDataTyCon, isDataTyCon, 
-			  isNewTyCon, isSynTyCon, tyConDataCons
+import TyCon		( TyCon, NewOrData, mkSynTyCon, mkDataTyCon, isAlgTyCon, 
+			  isSynTyCon, tyConDataCons
 			)
 import Type		( GenType, -- instances
 			  typeKind, getTyVar, tyVarsOfTypes, eqTy, splitSigmaTy,
@@ -177,7 +177,7 @@ mkDataBinds (tycon : tycons)
 		       returnTc (ids1++ids2, b1 `ThenBinds` b2)
 
 mkDataBinds_one tycon
-  = ASSERT( isDataTyCon tycon || isNewTyCon tycon )
+  = ASSERT( isAlgTyCon tycon )
     mapTc checkConstructorContext data_cons	`thenTc_` 
     mapTc (mkRecordSelector tycon) groups	`thenTc` \ sel_ids ->
     let
-- 
1.7.10.4