record-out.hs

module Main where

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