pdateFeedElement
    :: ForFeedElement e
    => e -> State Schedule ()
updateFeedElement x = do
    m <- get
    let map' = Map.adjustWithKey (updateScheduleItem x) (getTripID x) m
    put map'

updateFeedElement
    :: ForFeedElement e
    => e -> State Schedule ()
updateFeedElement x = do
    m <- get
    let map' = Map.adjustWithKey (updateScheduleItem x) (getTripID x) m
    put map'
updateFeedElement x = do
    m <- get
    let map' = Map.adjustWithKey (updateScheduleItem x) (getTripID x) m
    put map'