module Main where

data A
  deriving (Show, Eq, Ord)

newtype B = B Int
  deriving newtype (Num)
  deriving stock (Show, Eq, Generic)
  deriving (Semigroup, Monoid) via (Generically B)
  deriving stock (Ord, Generic)
  deriving (ToJSON)

data C
  deriving 
    (Show
    , Eq
    -- A comment that will end up in an odd place
    , Ord)