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