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