module Main where

-- | Something.

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