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