import Data.List ( unzip4 )
mAX_NDP_PROD :: Int
-mAX_NDP_PROD = 4
+mAX_NDP_PROD = 5
mAX_NDP_SUM :: Int
mAX_NDP_SUM = 3
where
mk name mod fs = (name, mod, fs)
- tups = map mk_tup [2..3]
+ tups = map mk_tup [2..mAX_NDP_PROD]
mk_tup n = mk (tyConName $ tupleTyCon Boxed n)
nDP_INSTANCES
(mkFastString $ "dPA_" ++ show n)