@@ -760,6 +760,7 @@ instance (ToJSON a, ToJSON b) => ToJSON (a,b) where
760760
761761 toEncoding (a,b) = tuple $
762762 builder a >*< builder b
763+ {-# INLINE toEncoding #-}
763764
764765instance (FromJSON a, FromJSON b) => FromJSON (a,b) where
765766 parseJSON = withArray "(a,b)" $ \ab ->
@@ -784,6 +785,7 @@ instance (ToJSON a, ToJSON b, ToJSON c) => ToJSON (a,b,c) where
784785 builder a >*<
785786 builder b >*<
786787 builder c
788+ {-# INLINE toEncoding #-}
787789
788790instance (FromJSON a, FromJSON b, FromJSON c) => FromJSON (a,b,c) where
789791 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
811813 builder b >*<
812814 builder c >*<
813815 builder d
816+ {-# INLINE toEncoding #-}
814817
815818instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d) =>
816819 FromJSON (a,b,c,d) where