parseDirectMessage (Object v) = Message <$>
    s v "id_str" <*>
    s v "sender_screen_name" <*>
    s v "recipient_screen_name" <*>
    (unEsc <$> s v "text") <*>
    s v "created_at"
parseDirectMessage (Object v) = Message <$>
    s v "id_str" <*>
    s v "sender_screen_name" <*>
    s v "recipient_screen_name" <*>
    (unEsc <$> s v "text") <*>
    s v "created_at"
parseDirectMessage (Object v) = Message <$>
    s v "id_str" <*>
    s v "sender_screen_name" <*>
    s v "recipient_screen_name" <*>
    (unEsc <$> s v "text") <*>
    s v "created_at"