@@ -760,6 +760,7 @@ instance (ToJSON a, ToJSON b) => ToJSON (a,b) where
761 toEncoding (a,b) = tuple $
761 toEncoding (a,b) = tuple $
762 builder a >*< builder b
762 builder a >*< builder b
763+ {-# INLINE toEncoding #-}
764instance (FromJSON a, FromJSON b) => FromJSON (a,b) where
765instance (FromJSON a, FromJSON b) => FromJSON (a,b) where
765 parseJSON = withArray "(a,b)" $ \ab ->
766 parseJSON = withArray "(a,b)" $ \ab ->
@@ -784,6 +785,7 @@ instance (ToJSON a, ToJSON b, ToJSON c) => ToJSON (a,b,c) where
784 builder a >*<
785 builder a >*<
785 builder b >*<
786 builder b >*<
786 builder c
787 builder c
788+ {-# INLINE toEncoding #-}
788instance (FromJSON a, FromJSON b, FromJSON c) => FromJSON (a,b,c) where
790instance (FromJSON a, FromJSON b, FromJSON c) => FromJSON (a,b,c) where
789 parseJSON = withArray "(a,b,c)" $ \abc ->
791 parseJSON = withArray "(a,b,c)" $ \abc ->
@@ -811,6 +813,7 @@ instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d) => ToJSON (a,b,c,d) where
811 builder b >*<
813 builder b >*<
812 builder c >*<
814 builder c >*<
813 builder d
815 builder d
816+ {-# INLINE toEncoding #-}
815instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d) =>
818instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d) =>
816 FromJSON (a,b,c,d) where
819 FromJSON (a,b,c,d) where