update-repos-0.0.1: src/UpdateRepos.hs

module UpdateRepos where

import           Data.Either
import           Git
import           System


isEnvironmentReady :: IO Bool
isEnvironmentReady = isGitInstalled

listGitRepositories :: FilePath -> IO [FilePath]
listGitRepositories = listDirectoriesRecursive containsGitMetadataDirectory containsOtherVCSMetadataDirectory

updateGitRepository :: FilePath -> IO (Either UpdateRepoError UpdateRepoSuccess)
updateGitRepository path = do currentBranch <- getCurrentBranch path
                              updateRepo path currentBranch