module Main where

-- | Something.
newtype Foo = Foo Int
    deriving stock (Eq, Show, Generic)
    deriving anyclass
        ( ToJSON
        , FromJSON
        )
    deriving newtype (Num)
    deriving (Monoid) via (Sum Int)
    deriving
        (Semigroup)
        via (Sum Int)
