[project @ 1996-04-05 08:26:04 by partain]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcPragmas.lhs

diff --git a/ghc/compiler/typecheck/TcPragmas.lhs b/ghc/compiler/typecheck/TcPragmas.lhs
index 12b7009..59153c5 100644 (file)
--- a/ghc/compiler/typecheck/TcPragmas.lhs
+++ b/ghc/compiler/typecheck/TcPragmas.lhs
@@ -665,7 +665,7 @@ tcDataPragmas rec_tce tve rec_tycon new_tyvars (DataPragmas con_decls specs)
                                      (length new_tyvars) maybe_tys locn)
                                `thenB_Tc_`
 
-       checkB_Tc (not (all isUnboxedDataType (catMaybes maybe_tys)))
+       checkB_Tc (not (all isUnboxedType (catMaybes maybe_tys)))
                (badSpecialisationErr "data" "not all unboxed types"
                                      (length new_tyvars) maybe_tys locn)
                                `thenB_Tc_`