deploymentLabel :: PivotalLabel -> Bool
  deploymentLabel label = "deployed to " `BCH.isInfixOf` labelText label
deploymentLabel :: PivotalLabel -> Bool
deploymentLabel label = "deployed to " `BCH.isInfixOf` labelText label
deploymentLabel label = "deployed to " `BCH.isInfixOf` labelText label