diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-06-22 16:30:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-06-22 16:30:34 -0400 |
| commit | 235e2e63a13c629dcca1aa1638f5f47a8d3983ba (patch) | |
| tree | 968030d038473f5b732c561711e1f9cf2b1be105 /Locations.hs | |
| parent | 1870186632e3d4f99e9b87f71f0ddea83ad04568 (diff) | |
move
Diffstat (limited to 'Locations.hs')
| -rw-r--r-- | Locations.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Locations.hs b/Locations.hs index d2241636e..9175c4f61 100644 --- a/Locations.hs +++ b/Locations.hs @@ -20,6 +20,7 @@ module Locations ( gitAnnexBadLocation, gitAnnexUnusedLog, isLinkToAnnex, + uuidLog, logFile, logFileKey, hashDirMixed, @@ -117,6 +118,10 @@ gitAnnexUnusedLog prefix r = gitAnnexDir r </> (prefix ++ "unused") isLinkToAnnex :: FilePath -> Bool isLinkToAnnex s = ("/.git/" ++ objectDir) `isInfixOf` s +{- Filename of uuid.log. -} +uuidLog :: FilePath +uuidLog = "uuid.log" + {- The filename of the log file for a given key. -} logFile :: Key -> String logFile key = hashDirLower key ++ keyFile key ++ ".log" |