refactor
This commit is contained in:
parent
2ff22a383a
commit
1cd3b7ddf0
7 changed files with 21 additions and 10 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue