labelStory :: World m => Label -> PivotalStory -> ReaderT Environment m ()
  labelStory label story = do
      apiToken <- pivotalTrackerApiToken `liftM` ask 
      let requestOptions = (pivotalApiOptions apiToken) & header "Content-Type" .~ ["application/json"]
      let formBody = "name" := label
      lift $ tryRequest $ postWith requestOptions (labelsUrl story) formBody
      return ()
labelStory :: World m => Label -> PivotalStory -> ReaderT Environment m ()
labelStory label story = do
      apiToken <- pivotalTrackerApiToken `liftM` ask 
      let requestOptions = (pivotalApiOptions apiToken) & header "Content-Type" .~ ["application/json"]
      let formBody = "name" := label
      lift $ tryRequest $ postWith requestOptions (labelsUrl story) formBody
      return ()
labelStory label story = do
      apiToken <- pivotalTrackerApiToken `liftM` ask 
      let requestOptions = (pivotalApiOptions apiToken) & header "Content-Type" .~ ["application/json"]
      let formBody = "name" := label
      lift $ tryRequest $ postWith requestOptions (labelsUrl story) formBody
      return ()