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 /Upgrade | |
| parent | 3327618e5b48afb10a8f98afe15c750d8ed4c416 (diff) | |
groundwork for parameterizing hash depth
Diffstat (limited to 'Upgrade')
| -rw-r--r-- | Upgrade/V1.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Upgrade/V1.hs b/Upgrade/V1.hs index e8a7efe13..801cdafa0 100644 --- a/Upgrade/V1.hs +++ b/Upgrade/V1.hs @@ -9,6 +9,7 @@ module Upgrade.V1 where import System.Posix.Types import Data.Char +import Data.Default import Common.Annex import Types.Key @@ -228,7 +229,7 @@ logFile1 :: Git.Repo -> Key -> String logFile1 repo key = Upgrade.V2.gitStateDir repo ++ keyFile1 key ++ ".log" logFile2 :: Key -> Git.Repo -> String -logFile2 = logFile' hashDirLower +logFile2 = logFile' (hashDirLower def) logFile' :: (Key -> FilePath) -> Key -> Git.Repo -> String logFile' hasher key repo = |