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/Helper/Messages.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'Remote/Helper/Messages.hs')

diff --git a/Remote/Helper/Messages.hs b/Remote/Helper/Messages.hs
index 30db70fbb..377f2d231 100644
--- a/Remote/Helper/Messages.hs
+++ b/Remote/Helper/Messages.hs
@@ -5,15 +5,14 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
+{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}
+
 module Remote.Helper.Messages where
 
 import Common.Annex
 import qualified Git
 import qualified Types.Remote as Remote
 
-showChecking :: Git.Repo -> Annex ()
-showChecking r = showAction $ "checking " ++ Git.repoDescribe r
-
 class Checkable a where
 	descCheckable :: a -> String
 
@@ -23,5 +22,11 @@ instance Checkable Git.Repo where
 instance Checkable (Remote.RemoteA a) where
 	descCheckable = Remote.name
 
+instance Checkable String where
+	descCheckable = id
+
+showChecking :: Checkable a => a -> Annex ()
+showChecking v = showAction $ "checking " ++ descCheckable v
+
 cantCheck :: Checkable a => a -> e
 cantCheck v = error $ "unable to check " ++ descCheckable v
-- 
cgit v1.2.3