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)