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

module Main where

-- | Something.

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