diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-11-15 18:04:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-11-15 18:04:19 -0400 |
| commit | 748a7475bb99e1127dc12bb2cc9d5653e4648200 (patch) | |
| tree | 1f8a191a561715b4ff22949e420b452380ab1f6e /Locations.hs | |
| parent | 9dc43d25995b085745c16cc31ad11106a74a9973 (diff) | |
dropunused
Diffstat (limited to 'Locations.hs')
| -rw-r--r-- | Locations.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Locations.hs b/Locations.hs index c3bab285d..24ccc75c6 100644 --- a/Locations.hs +++ b/Locations.hs @@ -14,6 +14,7 @@ module Locations ( annexLocationRelative, annexTmpLocation, annexBadLocation, + annexUnusedLog, annexDir, annexObjectDir, @@ -56,14 +57,18 @@ annexDir r = Git.workTree r ++ "/.git/annex" annexObjectDir :: Git.Repo -> FilePath annexObjectDir r = annexDir r ++ "/objects" -{- .git-annex/tmp is used for temp files -} +{- .git-annex/tmp/ is used for temp files -} annexTmpLocation :: Git.Repo -> FilePath annexTmpLocation r = annexDir r ++ "/tmp/" -{- .git-annex/bad is used for bad files found during fsck -} +{- .git-annex/bad/ is used for bad files found during fsck -} annexBadLocation :: Git.Repo -> FilePath annexBadLocation r = annexDir r ++ "/bad/" +{- .git/annex/unused is used to number possibly unused keys -} +annexUnusedLog :: Git.Repo -> FilePath +annexUnusedLog r = annexDir r ++ "/unused" + {- Converts a key into a filename fragment. - - Escape "/" in the key name, to keep a flat tree of files and avoid |