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

remove unused code

Browse source
This commit is contained in:
Joey Hess 2011-03-03 17:35:44 -04:00
parent e49e6a403b
commit b27b0d5cd4
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
GitRepo.hs
View file

@ -17,7 +17,6 @@ module GitRepo (
repoIsUrl,
repoIsSsh,
repoIsLocalBare,
repoIsLocalFull,
repoDescribe,
repoLocation,
workTree,
@ -170,10 +169,6 @@ repoIsLocalBare :: Repo -> Bool
repoIsLocalBare r@(Repo { location = Dir _ }) = configAvail r && configBare r
repoIsLocalBare _ = False
repoIsLocalFull :: Repo -> Bool
repoIsLocalFull r@(Repo { location = Dir _ }) = configAvail r && not (configBare r)
repoIsLocalFull _ = False
assertLocal :: Repo -> a -> a
assertLocal repo action =
if not $ repoIsUrl repo