+ mk_tup n = mk (tyConName $ tupleTyCon Boxed n)
+ nDP_INSTANCES
+ (mkFastString $ "dPA_" ++ show n)
+
+initBuiltinPRs = initBuiltinDicts . builtinPRs
+
+builtinPRs :: Builtins -> [(Name, Module, FastString)]
+builtinPRs bi =
+ [
+ mk (tyConName unitTyCon) nDP_REPR FSLIT("dPR_Unit")
+ , mk closureTyConName nDP_CLOSURE FSLIT("dPR_Clo")
+
+ -- temporary
+ , mk intTyConName nDP_INSTANCES FSLIT("dPR_Int")
+ ]
+
+ ++ map mk_sum [2..mAX_NDP_SUM]
+ ++ map mk_prod [2..mAX_NDP_PROD]
+ where
+ mk name mod fs = (name, mod, fs)
+
+ mk_sum n = (tyConName $ sumTyCon n bi, nDP_REPR,
+ mkFastString ("dPR_Sum" ++ show n))
+
+ mk_prod n = (tyConName $ prodTyCon n bi, nDP_REPR,
+ mkFastString ("dPR_" ++ show n))