module MkId where mkDataConWorkId :: Name.Name -> DataCon.DataCon -> Var.Id