parserOptInstall :: Parser OptInstall
parserOptInstall =
  OptInstall <$>
  boolFlag
    (long "delete-existing-database" <>
     short 'd' <> help "Delete database if it allready exists") <*>
  boolFlag (long "delete-residual-roles" <> help "Delete residual roles")
parserOptInstall :: Parser OptInstall
parserOptInstall =
  OptInstall <$>
  boolFlag
    (long "delete-existing-database" <>
     short 'd' <> help "Delete database if it allready exists") <*>
  boolFlag (long "delete-residual-roles" <> help "Delete residual roles")
parserOptInstall =
  OptInstall <$>
  boolFlag
    (long "delete-existing-database" <>
     short 'd' <> help "Delete database if it allready exists") <*>
  boolFlag (long "delete-residual-roles" <> help "Delete residual roles")