This commit is contained in:
Joey Hess 2015-08-17 10:42:14 -04:00
parent 2ff22a383a
commit 1cd3b7ddf0
7 changed files with 21 additions and 10 deletions

View file

@ -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