newLabelNeeded :: Label -> [PivotalLabel] -> Bool
  newLabelNeeded newLabel previousLabels = (deploymentPipelineLabel newLabel) || (not $ any inPipeline previousLabels)
    where
      deploymentPipelineLabel :: Label ->  Bool
      deploymentPipelineLabel newLabel = (BCH.pack newLabel) `elem` deploymentPipelineLabels
      inPipeline :: PivotalLabel -> Bool
      inPipeline label = labelText label `elem` deploymentPipelineLabels
newLabelNeeded :: Label -> [PivotalLabel] -> Bool
newLabelNeeded newLabel previousLabels = (deploymentPipelineLabel newLabel) || (not $ any inPipeline previousLabels)
    where
      deploymentPipelineLabel :: Label ->  Bool
      deploymentPipelineLabel newLabel = (BCH.pack newLabel) `elem` deploymentPipelineLabels
      inPipeline :: PivotalLabel -> Bool
      inPipeline label = labelText label `elem` deploymentPipelineLabels
newLabelNeeded newLabel previousLabels = (deploymentPipelineLabel newLabel) || (not $ any inPipeline previousLabels)
    where
      deploymentPipelineLabel :: Label ->  Bool
      deploymentPipelineLabel newLabel = (BCH.pack newLabel) `elem` deploymentPipelineLabels
      inPipeline :: PivotalLabel -> Bool
      inPipeline label = labelText label `elem` deploymentPipelineLabels