X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcGenDeriv.lhs;h=a7956e4fcc7fb4e4cc9aeeb88bf9381ef9a4c990;hp=1a0043ad03f2ed616ec40610ea44e3bc16b269df;hb=8c2fd74094dc533bf3256158325e3f091e57e5d2;hpb=51d54e10ae2bdf15ada2b6bfce0b4c8853ffe777

diff --git a/compiler/typecheck/TcGenDeriv.lhs b/compiler/typecheck/TcGenDeriv.lhs
index 1a0043a..a7956e4 100644
--- a/compiler/typecheck/TcGenDeriv.lhs
+++ b/compiler/typecheck/TcGenDeriv.lhs
@@ -156,7 +156,7 @@ gen_Eq_binds loc tycon
     no_nullary_cons = null nullary_cons
 
     rest | no_nullary_cons
-	 = case maybeTyConSingleCon tycon of
+	 = case tyConSingleDataCon_maybe tycon of
 	    	  Just _ -> []
 	    	  Nothing -> -- if cons don't match, then False
 	    	     [([nlWildPat, nlWildPat], false_Expr)]
@@ -680,7 +680,7 @@ gen_Ix_binds loc tycon
       = listToBag [single_con_range, single_con_index, single_con_inRange]
 
     data_con
-      =	case maybeTyConSingleCon tycon of -- just checking...
+      =	case tyConSingleDataCon_maybe tycon of -- just checking...
 	  Nothing -> panic "get_Ix_binds"
 	  Just dc | any isUnLiftedType (dataConOrigArgTys dc)
 		  -> pprPanic "Can't derive Ix for a single-constructor type with primitive argument types:" (ppr tycon)