@@ -44,6 +44,7 @@ import Text.Read (readMaybe)
45-- | Convert value to HTTP API data.
45-- | Convert value to HTTP API data.
46class ToHttpApiData a where
46class ToHttpApiData a where
47+ {-# MINIMAL toUrlPiece | toQueryParam #-}
47 -- | Convert to URL path piece.
48 -- | Convert to URL path piece.
48 toUrlPiece :: a -> Text
49 toUrlPiece :: a -> Text
49 toUrlPiece = toQueryParam
50 toUrlPiece = toQueryParam
@@ -58,6 +59,7 @@ class ToHttpApiData a where
59-- | Convert value from HTTP API data.
60-- | Convert value from HTTP API data.
60class FromHttpApiData a where
61class FromHttpApiData a where
62+ {-# MINIMAL parseUrlPiece | parseQueryParam #-}
61 -- | Parse URL path piece.
63 -- | Parse URL path piece.
62 parseUrlPiece :: Text -> Either Text a
64 parseUrlPiece :: Text -> Either Text a
63 parseUrlPiece = parseQueryParam
65 parseUrlPiece = parseQueryParam