module Record2 where

-- | A record
data Record = A { a :: Int , b :: String } | B { bb :: Double }