matches = matchRegex username_regex word
--- |Parse all usernames of the form @username from a status.
+-- |Parse all usernames of the form \@username from a status.
parse_usernames_from_status :: Status -> [String]
parse_usernames_from_status status =
catMaybes (map parse_username status_words)