getPreviousDeployLabels :: World m => PivotalStory -> ReaderT Environment m [PivotalLabel]
  getPreviousDeployLabels story = do
      apiToken <- pivotalTrackerApiToken `liftM` ask 
      let requestOptions = (pivotalApiOptions apiToken) & header "Content-Type" .~ ["application/json"]
      response <- lift . tryRequest $ getWith requestOptions (labelsUrl story)
      case response of
        Right res -> do
          let stories = MB.catMaybes  . V.toList $ V.map pivotalLabelsFromReponse (res ^. responseBody . _Array)
          return stories
        Left  a   -> return []
getPreviousDeployLabels :: World m => PivotalStory -> ReaderT Environment m [PivotalLabel]
getPreviousDeployLabels story = do
      apiToken <- pivotalTrackerApiToken `liftM` ask 
      let requestOptions = (pivotalApiOptions apiToken) & header "Content-Type" .~ ["application/json"]
      response <- lift . tryRequest $ getWith requestOptions (labelsUrl story)
      case response of
        Right res -> do
          let stories = MB.catMaybes  . V.toList $ V.map pivotalLabelsFromReponse (res ^. responseBody . _Array)
          return stories
        Left  a   -> return []
getPreviousDeployLabels story = do
      apiToken <- pivotalTrackerApiToken `liftM` ask 
      let requestOptions = (pivotalApiOptions apiToken) & header "Content-Type" .~ ["application/json"]
      response <- lift . tryRequest $ getWith requestOptions (labelsUrl story)
      case response of
        Right res -> do
          let stories = MB.catMaybes  . V.toList $ V.map pivotalLabelsFromReponse (res ^. responseBody . _Array)
          return stories
        Left  a   -> return []