diff options
author | 2013-09-24 13:37:41 -0400 | |
---|---|---|
committer | 2013-09-24 13:37:41 -0400 | |
commit | a7f9ddb8de7c1e0357046d3dc9efc644bd5fb730 (patch) | |
tree | c4577129c78f9e2d9e40da67cf8d191b7dfb6b25 /Remote/Helper/Messages.hs | |
parent | 12a8f2555e1c6d3a8d6ef7d60382265fa5be70b0 (diff) |
factor out more ssh stuff from git remote
This has the dual benefits of making Remote.Git shorter, and letting
Remote.GCrypt use these utilities.
Diffstat (limited to 'Remote/Helper/Messages.hs')
-rw-r--r-- | Remote/Helper/Messages.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/Remote/Helper/Messages.hs b/Remote/Helper/Messages.hs new file mode 100644 index 000000000..c4b1966dc --- /dev/null +++ b/Remote/Helper/Messages.hs @@ -0,0 +1,17 @@ +{- git-annex remote messages + - + - Copyright 2013 Joey Hess <joey@kitenet.net> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Remote.Helper.Messages where + +import Common.Annex +import qualified Git + +showChecking :: Git.Repo -> Annex () +showChecking r = showAction $ "checking " ++ Git.repoDescribe r + +cantCheck :: Git.Repo -> Either String Bool +cantCheck r = Left $ "unable to check " ++ Git.repoDescribe r |