X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FTwitter%2FXml.hs;h=0e23cb7e736905dcac1afc03bfd8c18f3cbd6341;hp=9c220dc8231c8e6bd6da0e4653823e161ac6ed6f;hb=636deff8c41fd640cc2945eae1d7b51432527a6a;hpb=606371fece618f28d3fedf182165ef3a56bf4159

diff --git a/src/Twitter/Xml.hs b/src/Twitter/Xml.hs
index 9c220dc..0e23cb7 100644
--- a/src/Twitter/Xml.hs
+++ b/src/Twitter/Xml.hs
@@ -47,6 +47,16 @@ status_text = keep /> (tag "text") /> txt
 status_user :: CFilter i
 status_user = keep /> (tag "user")
 
+-- | Finds the text of the <retweeted> element contained within some
+--   other element.
+status_retweeted :: CFilter i
+status_retweeted = keep /> (tag "retweeted") /> txt
+
+-- | Finds the text of the <in_reply_to_status_id> element contained
+--   within some other element.
+status_reply_to_status_id :: CFilter i
+status_reply_to_status_id = keep /> (tag "in_reply_to_status_id") /> txt
+
 -- |Finds the text of the <screen_name> element contained within some
 -- other element.
 user_screen_name :: CFilter i