module Decl.RecordType where data A = B { valB, extra :: Int, qq :: Double } | C