accessKeyLabelP :: Parser T.Text
accessKeyLabelP = option (T.pack <$> str) $
      long "label"
  <>  help "A label for the Access Key"
accessKeyLabelP :: Parser T.Text
accessKeyLabelP = option (T.pack <$> str) $
      long "label"
  <>  help "A label for the Access Key"
accessKeyLabelP = option (T.pack <$> str) $
      long "label"
  <>  help "A label for the Access Key"