[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / compiler / uniType / TyCon.lhs

diff --git a/ghc/compiler/uniType/TyCon.lhs b/ghc/compiler/uniType/TyCon.lhs
index ddf1716..5a5b304 100644 (file)
--- a/ghc/compiler/uniType/TyCon.lhs
+++ b/ghc/compiler/uniType/TyCon.lhs
@@ -384,7 +384,7 @@ maybeSingleConstructorTyCon (TupleTyCon arity)               = Just (mkTupleCon arity
 maybeSingleConstructorTyCon (DataTyCon _ _ _ _ [c] _ _)  = Just c
 maybeSingleConstructorTyCon (DataTyCon _ _ _ _ _   _ _)  = Nothing
 maybeSingleConstructorTyCon (PrimTyCon _ _ _ _)                 = Nothing
-maybeSingleConstructorTyCon (SpecTyCon tc tys)           = panic "maybeSingleConstructorTyCon:SpecTyCon"
+maybeSingleConstructorTyCon tycon@(SpecTyCon tc tys)     = pprPanic "maybeSingleConstructorTyCon:SpecTyCon:" (ppr PprDebug tycon)
                                                           -- requires DataCons of TyCon
 \end{code}