mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor isBareRepo

Browse source
This commit is contained in:
Joey Hess 2016-06-02 16:59:15 -04:00
parent c8dd196234
commit 26887745a0
Failed to extract signature
4 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Config.hs
View file

@ -86,6 +86,9 @@ setRemoteIgnore r b = setConfig (remoteConfig r "ignore") (Git.Config.boolConfig
setRemoteBare :: Git.Repo -> Bool -> Annex ()
setRemoteBare r b = setConfig (remoteConfig r "bare") (Git.Config.boolConfig b)
isBareRepo :: Annex Bool
isBareRepo = fromRepo Git.repoIsLocalBare
isDirect :: Annex Bool
isDirect = annexDirect <$> Annex.getGitConfig