fbrnch-1.8: src/Cmd/Switch.hs

module Cmd.Switch (switchCmd) where

import Control.Monad (unless, when)

import Branches
import Common.System
import Git
import Package

-- FIXME noop when on branch already or drop cleanGit
switchCmd :: Bool -> Bool -> Bool -> AnyBranch -> [String] -> IO ()
switchCmd verbose lenient stash br pkgs =
  -- FIXME use withBranchByPackages ?
  withPackagesByBranches HeaderNone False dirtyGit Zero dummy (Branches [],pkgs)
  where
    dummy pkg _ = do
      dostash <-
        if stash
        then not <$> isGitDirClean
        else return False
      when dostash $ git_ "stash" ["-m", stashedWithFbrnch]
      if lenient
        then do
        let rbr = onlyRelBranch br
        ok <- gitSwitchBranch' (not verbose) rbr
        unless ok $ warning $ unPackage pkg +-+ "missing" +-+ showBranch rbr
        else gitSwitchBranchVerbose verbose False br
      when dostash gitUnstash