updateLabels :: World m => Label -> PivotalStory -> ReaderT Environment m ()
  updateLabels label story = do
    previousLabels <- getPreviousDeployLabels story
    if newLabelNeeded label previousLabels
    then do
      let labelsToDestroy = filter (not . partOfDeployPipeline) $ filter deploymentLabel previousLabels
      removeLabels story labelsToDestroy
      labelStory label story
    else return ()
updateLabels :: World m => Label -> PivotalStory -> ReaderT Environment m ()
updateLabels label story = do
    previousLabels <- getPreviousDeployLabels story
    if newLabelNeeded label previousLabels
    then do
      let labelsToDestroy = filter (not . partOfDeployPipeline) $ filter deploymentLabel previousLabels
      removeLabels story labelsToDestroy
      labelStory label story
    else return ()
updateLabels label story = do
    previousLabels <- getPreviousDeployLabels story
    if newLabelNeeded label previousLabels
    then do
      let labelsToDestroy = filter (not . partOfDeployPipeline) $ filter deploymentLabel previousLabels
      removeLabels story labelsToDestroy
      labelStory label story
    else return ()