1module Main where
2
3-- | Something.
4
5data Foo = Foo
6  { fooX :: Int -- ^ X
7  , fooY :: Int -- ^ Y
8  } |
9  Bar
10  { barX :: Int -- ^ X
11  , barY :: Int -- ^ Y
12  }
13  deriving (Eq, Show)
14