parseTimelineMessage (Object v) = Message <$>
    s v "id_str" <*>
    (v .: "user" >>= extractScreenName) <*>
    pure "" <*>
    retweetOrText v <*>
    s v "created_at"
parseTimelineMessage (Object v) = Message <$>
    s v "id_str" <*>
    (v .: "user" >>= extractScreenName) <*>
    pure "" <*>
    retweetOrText v <*>
    s v "created_at"
parseTimelineMessage (Object v) = Message <$>
    s v "id_str" <*>
    (v .: "user" >>= extractScreenName) <*>
    pure "" <*>
    retweetOrText v <*>
    s v "created_at"