refactor

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