case (reads status_id_data :: [(Integer, String)]) of
[] -> Nothing
parseresult:_ -> Just (Status (fst parseresult) created_at_data all_text user_object)
case (reads status_id_data :: [(Integer, String)]) of
[] -> Nothing
parseresult:_ -> Just (Status (fst parseresult) created_at_data all_text user_object)