Use hyphens instead of underscores in access-token et al.

[dead/halcyon.git] / src / Twitter / Status.hs

diff --git a/src/Twitter/Status.hs b/src/Twitter/Status.hs
index 6ff7e6c1dba241880ed81d989f8bfa2f36f381f7..176619d0ed5a6e2d9f2720b13fe4abed61350cfd 100644 (file)
--- 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.