module Main where

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