removeLabels :: World m => PivotalStory -> [PivotalLabel] -> ReaderT Environment m ()
  removeLabels story labels = do
    mapM_ removeLabel labels
    where
      removeLabel :: World m => PivotalLabel -> ReaderT Environment m ()
      removeLabel label = do
        apiToken <- pivotalTrackerApiToken `liftM` ask 
        let requestOptions = (pivotalApiOptions apiToken) & header "Content-Type" .~ ["application/json"]
        lift . tryRequest . (deleteWith requestOptions) . T.unpack $ labelDestroyUrl story label
        return ()
removeLabels :: World m => PivotalStory -> [PivotalLabel] -> ReaderT Environment m ()
removeLabels story labels = do
    mapM_ removeLabel labels
    where
      removeLabel :: World m => PivotalLabel -> ReaderT Environment m ()
      removeLabel label = do
        apiToken <- pivotalTrackerApiToken `liftM` ask 
        let requestOptions = (pivotalApiOptions apiToken) & header "Content-Type" .~ ["application/json"]
        lift . tryRequest . (deleteWith requestOptions) . T.unpack $ labelDestroyUrl story label
        return ()
removeLabels story labels = do
    mapM_ removeLabel labels
    where
      removeLabel :: World m => PivotalLabel -> ReaderT Environment m ()
      removeLabel label = do
        apiToken <- pivotalTrackerApiToken `liftM` ask 
        let requestOptions = (pivotalApiOptions apiToken) & header "Content-Type" .~ ["application/json"]
        lift . tryRequest . (deleteWith requestOptions) . T.unpack $ labelDestroyUrl story label
        return ()