module Main where

-- | Something.

data Foo = Foo
  { fooX :: Int -- ^ X
  , fooY :: Int -- ^ Y
  , fooBar, fooBaz :: NonEmpty (Identity Bool) -- ^ BarBaz
  , fooGag, fooGog :: NonEmpty (Indentity
                                  Bool)
    -- ^ GagGog
  , fooFoo
      , barBar :: Int -- ^ Huh!
  } deriving (Eq, Show)