fourmolu-0.0.6.0: data/examples/declaration/data/record-multi-const-out.hs

module Main where

-- | Something.
data Foo
  = Foo
      { -- | X
        fooX :: Int,
        -- | Y
        fooY :: Int
      }
  | Bar
      { -- | X
        barX :: Int,
        -- | Y
        barY :: Int
      }
  deriving (Eq, Show)