updateLabelsOnStories :: World m => String -> [PivotalStory] -> ReaderT Environment m ()
  updateLabelsOnStories label stories = mapM_ (updateLabels label) stories
updateLabelsOnStories :: World m => String -> [PivotalStory] -> ReaderT Environment m ()
updateLabelsOnStories label stories = mapM_ (updateLabels label) stories
updateLabelsOnStories label stories = mapM_ (updateLabels label) stories