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 /Command | |
| parent | 3327618e5b48afb10a8f98afe15c750d8ed4c416 (diff) | |
groundwork for parameterizing hash depth
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Find.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/Find.hs b/Command/Find.hs index a52d17384..55124d838 100644 --- a/Command/Find.hs +++ b/Command/Find.hs @@ -7,6 +7,7 @@ module Command.Find where +import Data.Default import qualified Data.Map as M import Common.Annex @@ -65,8 +66,8 @@ keyVars key = , ("bytesize", size show) , ("humansize", size $ roughSize storageUnits True) , ("keyname", keyName key) - , ("hashdirlower", hashDirLower key) - , ("hashdirmixed", hashDirMixed key) + , ("hashdirlower", hashDirLower def key) + , ("hashdirmixed", hashDirMixed def key) , ("mtime", whenavail show $ keyMtime key) ] where |