From 7ca8ec00a7fcda71a08d22f06838424765a1b215 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 28 Jan 2015 15:55:17 -0400
Subject: groundwork for parameterizing hash depth

---
 Upgrade/V1.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Upgrade')

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 =
-- 
cgit v1.2.3