Add two functions to get the "retweeted" and "in_reply_to_status_id" element text.
authorMichael Orlitzky <michael@orlitzky.com>
Tue, 10 Apr 2012 22:33:26 +0000 (18:33 -0400)
committerMichael Orlitzky <michael@orlitzky.com>
Tue, 10 Apr 2012 22:33:26 +0000 (18:33 -0400)
src/Twitter/Xml.hs

index 9c220dc8231c8e6bd6da0e4653823e161ac6ed6f..0e23cb7e736905dcac1afc03bfd8c18f3cbd6341 100644 (file)
@@ -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