module Main where

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

 | Something.
 | X
 | Y
 | BarBaz
 | GagGog
 | Huh!
module Main where

data Foo = Foo
    fooX :: Int
    fooY :: Int
    fooBar, fooBaz :: NonEmpty (Identity Bool)
    fooGag
    , fooGog
    :: NonEmpty
           ( Indentity
               Bool
           )
    fooFoo
    , barBar
    :: Int
  }
  deriving (Eq, Show)
