From 29826eaa3d217a722a291b30fba5f9eda98ff518 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 17 Aug 2015 10:42:14 -0400
Subject: refactor

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

(limited to 'Remote/Hook.hs')

diff --git a/Remote/Hook.hs b/Remote/Hook.hs
index 259a44bcd..98eeeb031 100644
--- a/Remote/Hook.hs
+++ b/Remote/Hook.hs
@@ -16,6 +16,7 @@ import Config
 import Config.Cost
 import Annex.UUID
 import Remote.Helper.Special
+import Remote.Helper.Messages
 import Utility.Env
 import Messages.Progress
 
@@ -138,7 +139,7 @@ remove h k = runHook h "remove" k Nothing $ return True
 
 checkKey :: Git.Repo -> HookName -> CheckPresent
 checkKey r h k = do
-	showAction $ "checking " ++ Git.repoDescribe r
+	showChecking r
 	v <- lookupHook h action
 	liftIO $ check v
   where
-- 
cgit v1.2.3