From 636deff8c41fd640cc2945eae1d7b51432527a6a Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 10 Apr 2012 18:33:26 -0400
Subject: [PATCH] Add two functions to get the "retweeted" and
 "in_reply_to_status_id" element text.

---
 src/Twitter/Xml.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

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
-- 
2.43.2