module StaleRecord where

data Record =
    -- | ...
    Record
  { a :: Int -- ^ aaa
  , -- | bbb
    b :: String
  }