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