fbrnch-1.3.2: src/Cmd/SideTags.hs

module Cmd.SideTags (sideTagsCmd) where

import SimpleCmd (cmd_)
import SimplePrompt (yesNo)

import Branches
import Common
import Koji
import Krb (krbTicket)

sideTagsCmd :: Bool -> [Branch] -> IO ()
sideTagsCmd remove brs = do
  sidetags <-
    if null brs
    then kojiUserSideTags Nothing
    else concat <$> mapM (kojiUserSideTags . Just) brs
  when remove krbTicket
  mapM_ (if remove then removeSideTag else putStrLn) sidetags
  where
    removeSideTag :: String -> IO ()
    removeSideTag tag =
      whenM (yesNo $ "Remove" +-+ tag) $
      cmd_ "fedpkg" ["remove-side-tag", tag]