@@ -44,6 +44,7 @@ import Text.Read (readMaybe)
4444
4545-- | Convert value to HTTP API data.
4646class ToHttpApiData a where
47+ {-# MINIMAL toUrlPiece | toQueryParam #-}
4748 -- | Convert to URL path piece.
4849 toUrlPiece :: a -> Text
4950 toUrlPiece = toQueryParam
@@ -58,6 +59,7 @@ class ToHttpApiData a where
5859
5960-- | Convert value from HTTP API data.
6061class FromHttpApiData a where
62+ {-# MINIMAL parseUrlPiece | parseQueryParam #-}
6163 -- | Parse URL path piece.
6264 parseUrlPiece :: Text -> Either Text a
6365 parseUrlPiece = parseQueryParam