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