__interface MkId 1 0 where
-__export MkId mkDataConId mkPrimitiveId ;
-1 mkDataConId :: DataCon.DataCon -> Var.Id ;
-1 mkPrimitiveId :: PrimOp.PrimOp -> Var.Id ;
+__export MkId mkDataConWorkId ;
+1 mkDataConWorkId :: Name.Name -> DataCon.DataCon -> Var.Id ;