mercurialScmP :: Parser Scm
mercurialScmP = flag' Mercurial $
      short 'm'
  <>  long "mercurial"
  <>  help "Sets the Scm to Mercurial"
mercurialScmP :: Parser Scm
mercurialScmP = flag' Mercurial $
      short 'm'
  <>  long "mercurial"
  <>  help "Sets the Scm to Mercurial"
mercurialScmP = flag' Mercurial $
      short 'm'
  <>  long "mercurial"
  <>  help "Sets the Scm to Mercurial"