fbrnch-0.7.1: src/Cmd/Switch.hs

module Cmd.Switch (switchCmd) where

--import Branches
import Git
import Package

switchCmd :: [String] -> IO ()
switchCmd =
  -- FIXME use withBranchByPackages ?
  withPackageByBranches Nothing cleanGit Nothing True ExactlyOne dummy
  where
    dummy _ br = gitSwitchBranch br