1module Main where 2 3-- | Something. 4 5data Foo = Foo 6 { fooX :: Int -- ^ X 7 , fooY :: Int -- ^ Y 8 , fooBar, fooBaz :: NonEmpty (Identity Bool) -- ^ BarBaz 9 , fooGag, fooGog :: NonEmpty (Indentity 10 Bool) 11 -- ^ GagGog 12 , fooFoo 13 , barBar :: Int -- ^ Huh! 14 } deriving (Eq, Show) 15