X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FTwitter%2FStatus.hs;h=176619d0ed5a6e2d9f2720b13fe4abed61350cfd;hp=6ff7e6c1dba241880ed81d989f8bfa2f36f381f7;hb=bbd3f429da0e9e5906f6aecb85f1c00683500428;hpb=5902136562aa412e2e1a54773e9cd3810bb8aa75

diff --git a/src/Twitter/Status.hs b/src/Twitter/Status.hs
index 6ff7e6c..176619d 100644
--- a/src/Twitter/Status.hs
+++ b/src/Twitter/Status.hs
@@ -19,6 +19,7 @@ import System.Locale (defaultTimeLocale, rfc822DateFormat)
 import Test.HUnit
 import Text.Regex (matchRegex, mkRegex)
 
+import Html (replace_entities)
 import StringUtils (listify)
 import Twitter.User
 
@@ -40,7 +41,7 @@ instance FromJSON Status where
       (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.