makeRoomAnnouncement :: String -> Communication
makeRoomAnnouncement announcement =
  Communication {
    speaker = User.roomAnnouncementUserId
  , target = Nothing
  , message = announcement
  , chatMode = Announcement
  }
makeRoomAnnouncement :: String -> Communication
makeRoomAnnouncement announcement =
  Communication {
    speaker = User.roomAnnouncementUserId
  , target = Nothing
  , message = announcement
  , chatMode = Announcement
  }
makeRoomAnnouncement announcement =
  Communication {
    speaker = User.roomAnnouncementUserId
  , target = Nothing
  , message = announcement
  , chatMode = Announcement
  }