diff options
Diffstat (limited to 'compiler/GHC/Tc/TyCl.hs')
| -rw-r--r-- | compiler/GHC/Tc/TyCl.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Tc/TyCl.hs b/compiler/GHC/Tc/TyCl.hs index 225e53d83e..605d004834 100644 --- a/compiler/GHC/Tc/TyCl.hs +++ b/compiler/GHC/Tc/TyCl.hs @@ -2981,9 +2981,10 @@ tcDataDefn err_ctxt roles_info tc_name = return AbstractTyCon mk_tc_rhs _ tycon data_cons = case data_cons of - DataTypeCons _ data_cons -> return $ + DataTypeCons is_type_data data_cons -> return $ mkLevPolyDataTyConRhs (isFixedRuntimeRepKind (tyConResKind tycon)) + is_type_data data_cons NewTypeCon data_con -> mkNewTyConRhs tc_name tycon data_con |