parse_usernames_from_status :: Status -> [String]
parse_usernames_from_status status =
catMaybes (map parse_username status_words)
parse_usernames_from_status :: Status -> [String]
parse_usernames_from_status status =
catMaybes (map parse_username status_words)