@@ -44,6 +44,9 @@ import TextShow (TextShow, showt)
4444#endif
4545
4646-- | Convert value to HTTP API data.
47+--
48+-- __WARNING__: Do not derive this using @DeriveAnyClass@ as the generated
49+-- instance will loop indefinitely.
4750class ToHttpApiData a where
4851 {-# MINIMAL toUrlPiece | toQueryParam #-}
4952 -- | Convert to URL path piece.
@@ -59,6 +62,9 @@ class ToHttpApiData a where
5962 toQueryParam = toUrlPiece
6063
6164-- | Parse value from HTTP API data.
65+--
66+-- __WARNING__: Do not derive this using @DeriveAnyClass@ as the generated
67+-- instance will loop indefinitely.
6268class FromHttpApiData a where
6369 {-# MINIMAL parseUrlPiece | parseQueryParam #-}
6470 -- | Parse URL path piece.