diff options
Diffstat (limited to 'Remote/Helper/Messages.hs')
-rw-r--r-- | Remote/Helper/Messages.hs | 11 |
1 files changed, 8 insertions, 3 deletions
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 |