blah

Record.hs

data Record = Record { subject        :: Subject
                     , logo           :: Maybe Logo
                     , address        :: Maybe Address
                     , branchRecords  :: [BranchRecord]
                     , subscriptions  :: [Subscription]
                     , comments       :: [Comment]
                     , categories     :: [String]
                     , keywords       :: [String]
                     } deriving (Show, Eq)