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)