diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-01-28 15:55:17 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-01-28 15:55:17 -0400 |
commit | 7ca8ec00a7fcda71a08d22f06838424765a1b215 (patch) | |
tree | aa377fccb40797a734372127c19177524fa8af2b /Logs.hs | |
parent | 3327618e5b48afb10a8f98afe15c750d8ed4c416 (diff) |
groundwork for parameterizing hash depth
Diffstat (limited to 'Logs.hs')
-rw-r--r-- | Logs.hs | 16 |
1 files changed, 9 insertions, 7 deletions
@@ -10,6 +10,8 @@ module Logs where import Common.Annex import Types.Key +import Data.Default + {- There are several varieties of log file formats. -} data LogVariety = UUIDBasedLog @@ -88,7 +90,7 @@ differenceLog = "difference.log" {- The pathname of the location log file for a given key. -} locationLogFile :: Key -> String -locationLogFile key = hashDirLower key ++ keyFile key ++ ".log" +locationLogFile key = hashDirLower def key ++ keyFile key ++ ".log" {- Converts a pathname into a key if it's a location log. -} locationLogFileKey :: FilePath -> Maybe Key @@ -102,13 +104,13 @@ locationLogFileKey path {- The filename of the url log for a given key. -} urlLogFile :: Key -> FilePath -urlLogFile key = hashDirLower key </> keyFile key ++ urlLogExt +urlLogFile key = hashDirLower def key </> keyFile key ++ urlLogExt {- Old versions stored the urls elsewhere. -} oldurlLogs :: Key -> [FilePath] oldurlLogs key = - [ "remote/web" </> hashDirLower key </> key2file key ++ ".log" - , "remote/web" </> hashDirLower key </> keyFile key ++ ".log" + [ "remote/web" </> hashDirLower def key </> key2file key ++ ".log" + , "remote/web" </> hashDirLower def key </> keyFile key ++ ".log" ] urlLogExt :: String @@ -131,7 +133,7 @@ isUrlLog file = urlLogExt `isSuffixOf` file {- The filename of the remote state log for a given key. -} remoteStateLogFile :: Key -> FilePath -remoteStateLogFile key = hashDirLower key </> keyFile key ++ remoteStateLogExt +remoteStateLogFile key = hashDirLower def key </> keyFile key ++ remoteStateLogExt remoteStateLogExt :: String remoteStateLogExt = ".log.rmt" @@ -141,7 +143,7 @@ isRemoteStateLog path = remoteStateLogExt `isSuffixOf` path {- The filename of the chunk log for a given key. -} chunkLogFile :: Key -> FilePath -chunkLogFile key = hashDirLower key </> keyFile key ++ chunkLogExt +chunkLogFile key = hashDirLower def key </> keyFile key ++ chunkLogExt chunkLogFileKey :: FilePath -> Maybe Key chunkLogFileKey path @@ -160,7 +162,7 @@ isChunkLog path = chunkLogExt `isSuffixOf` path {- The filename of the metadata log for a given key. -} metaDataLogFile :: Key -> FilePath -metaDataLogFile key = hashDirLower key </> keyFile key ++ metaDataLogExt +metaDataLogFile key = hashDirLower def key </> keyFile key ++ metaDataLogExt metaDataLogExt :: String metaDataLogExt = ".log.met" |