decodeTimeline :: JSValue -> Result Timeline
decodeTimeline input = readJSON input >>= mapM decodeStatus >>= return . sortBy (compare `on` stId)
decodeTimeline :: JSValue -> Result Timeline
decodeTimeline input = readJSON input >>= mapM decodeStatus >>= return . sortBy (compare `on` stId)
decodeTimeline input = readJSON input >>= mapM decodeStatus >>= return . sortBy (compare `on` stId)