-builtin_PAs :: [(Name, Module, FastString)]
-builtin_PAs = [
- (closureTyConName, nDP_CLOSURE, FSLIT("dPA_Clo"))
- , mk intTyConName FSLIT("dPA_Int")
- ]
- ++ tups
- where
- mk name fs = (name, nDP_INSTANCES, fs)
-
- tups = mk_tup 0 : map mk_tup [2..3]
- mk_tup n = (getName $ tupleTyCon Boxed n, nDP_INSTANCES,
- mkFastString $ "dPA_" ++ show n)
-