Add two functions to get the "retweeted" and "in_reply_to_status_id" element text.

[dead/halcyon.git] / src / Twitter / Xml.hs

diff --git a/src/Twitter/Xml.hs b/src/Twitter/Xml.hs
index 9c220dc8231c8e6bd6da0e4653823e161ac6ed6f..0e23cb7e736905dcac1afc03bfd8c18f3cbd6341 100644 (file)
--- 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