fbrnch-0.7.1: src/Cmd/Pull.hs

module Cmd.Pull (pullPkgs) where

import Branches
import Git
import Package

-- FIXME pulling more than one branch
-- FIXME print nvr after pulling or old -> new
pullPkgs :: [String] -> IO ()
pullPkgs =
  withPackageByBranches (Just False) cleanGitFetch Nothing True AnyNumber pullPkg
  where
    pullPkg :: Package -> AnyBranch -> IO ()
    pullPkg _pkg _br =
      gitCurrentBranch >>= gitMergeOrigin