diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-03-03 17:35:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-03-03 17:35:44 -0400 |
| commit | b27b0d5cd463afcce8a95730a49288edd89eb8b8 (patch) | |
| tree | 73a85c0e7a1f257c260d2ecdbaae30df260148f2 | |
| parent | e49e6a403b16cd12594239e18fa708aab61243a9 (diff) | |
remove unused code
| -rw-r--r-- | GitRepo.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/GitRepo.hs b/GitRepo.hs index 92539eb82..8e3f14ee5 100644 --- a/GitRepo.hs +++ b/GitRepo.hs @@ -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 |