mkTupleInstances 5

thomasjm · thomasjm · commit b4790474f5d8 · 2026-02-18T19:05:26.000-08:00
diff --git a/src/Data/Aeson/TypeScript/Instances.hs b/src/Data/Aeson/TypeScript/Instances.hs
@@ -123,7 +123,7 @@ instance (TypeScript a, TypeScript b) => TypeScript (Either a b) where
                            ]
 
 -- Derive instance TypeScript (a, b), instance TypeScript (a, b, c), etc. up to size 10
-mkTupleInstances 10
+mkTupleInstances 5
 
 instance forall a k (b :: k). (Typeable k, Typeable b, TypeScript a) => TypeScript (Const a b) where
   getTypeScriptType _ = getTypeScriptType (Proxy :: Proxy a)

Original file line number	Diff line number	Diff line change
`@@ -123,7 +123,7 @@ instance (TypeScript a, TypeScript b) => TypeScript (Either a b) where`
`123`	`123`	`]`
`124`	`124`
`125`	`125`	`-- Derive instance TypeScript (a, b), instance TypeScript (a, b, c), etc. up to size 10`
`126`		`-mkTupleInstances 10`
	`126`	`+mkTupleInstances 5`
`127`	`127`
`128`	`128`	`instance forall a k (b :: k). (Typeable k, Typeable b, TypeScript a) => TypeScript (Const a b) where`
`129`	`129`	`getTypeScriptType _ = getTypeScriptType (Proxy :: Proxy a)`