import Test.HUnit
import Text.Regex (matchRegex, mkRegex)
+import Html (replace_entities)
import StringUtils (listify)
import Twitter.User
(t .: id_field) <*>
liftM isJustInt (t .: in_reply_to_status_id_field) <*>
(t .: retweeted_field) <*>
- (t .: text_field) <*>
+ liftM replace_entities (t .: text_field) <*>
(t .: user_field)
where
-- The typechecker flips out without this.