Escape an '@' in a Haddock comment.

diff --git a/src/Twitter/Status.hs b/src/Twitter/Status.hs
index e40bc6a6a718aa4b68e62902125859b128fc91ad..976ccb31590c134bcaa766cd3d718a4bdf9dd454 100644 (file)
--- a/src/Twitter/Status.hs
+++ b/src/Twitter/Status.hs
@@ -131,7 +131,7 @@ parse_username word =
       matches = matchRegex username_regex word
 
 
       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)
 parse_usernames_from_status :: Status -> [String]
 parse_usernames_from_status status =
     catMaybes (map parse_username status_words)