From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 10 Apr 2012 22:33:26 +0000 (-0400)
Subject: Add two functions to get the "retweeted" and "in_reply_to_status_id" element text.
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=636deff8c41fd640cc2945eae1d7b51432527a6a;p=dead%2Fhalcyon.git

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

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