Provide a handy way for derving ToJSON proprely.

Provide a newtype to be used with DerivingVia to correctly derive ToJSON.

As simple as:

data W = W Int Int
deriving stock (Generic)
deriving (ToJSON) via (GenericallyToJSONToEncoding W)

aeson-modern-tojson

Provide a newtype to be used with DerivingVia to correctly derive ToJSON.

As simple as:

data W = W Int Int
    deriving stock (Generic)
    deriving (ToJSON) via (GenericallyToJSONToEncoding W)

data X = X Int Int
    deriving stock (Generic)
    deriving (ToJSON) via (GenericallyToEncoding X)