data A = B { field :: Int }

data A = B { field :: Int, field2 :: Char }

data A = B { field :: Int, field2 :: Char, field3 :: String }

data A = B { field :: Int,
  field2 :: Char, field3 :: String } deriving Show

data A = B { field :: Int,
  field2 :: Char,
  field3 :: String } deriving Show

data A = B { field :: Int
  , field2 :: Char
  , field3 :: String } deriving (Show, Eq)

data A = B { field :: Int
  , field2 :: Char
  , field3 :: String } deriving (Show, Eq)

data A = B { field :: Int -- ^ Field 1
   }

data A = B { field :: Int, -- ^ Field 1
  field2 :: Char,  -- ^ field 2
  field3 :: String } deriving Show