X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgTicky.hs;h=24947409fe27fc95f79eb7ba657c1b005345e9e7;hb=3d2acdeb7a920cb7eca6047b6c055d12504fccf7;hp=7f8950583402688379c5f47b380fd9201fc2f4d7;hpb=3cc90d192495f4f1bc2ad083a45f24427b5eebbf;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgTicky.hs b/compiler/codeGen/CgTicky.hs
index 7f89505..2494740 100644
--- a/compiler/codeGen/CgTicky.hs
+++ b/compiler/codeGen/CgTicky.hs
@@ -380,6 +380,6 @@ showTypeCategory ty
 	  else if isPrimTyCon tycon {- array, we hope -}   then 'A'	-- Bogus
 	  else if isEnumerationTyCon tycon		   then 'E'
 	  else if isTupleTyCon tycon			   then 'T'
-	  else if isJust (maybeTyConSingleCon tycon)       then 'S'
+	  else if isJust (tyConSingleDataCon_maybe tycon)       then 'S'
 	  else if utc == listTyConKey			   then 'L'
 	  else 'M' -- oh, well...