mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 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
Download patch file Download diff file Expand all files Collapse all files

5
GitRepo.hs
View file

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