diff options
Diffstat (limited to 'Assistant/RemoteProblem.hs')
| -rw-r--r-- | Assistant/RemoteProblem.hs | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/Assistant/RemoteProblem.hs b/Assistant/RemoteProblem.hs deleted file mode 100644 index c064a9475..000000000 --- a/Assistant/RemoteProblem.hs +++ /dev/null @@ -1,23 +0,0 @@ -{- git-annex assistant remote problem handling - - - - Copyright 2013 Joey Hess <joey@kitenet.net> - - - - Licensed under the GNU GPL version 3 or higher. - -} - -module Assistant.RemoteProblem where - -import Assistant.Common -import Utility.TList - -import Control.Concurrent.STM - -{- Gets all remotes that have problems. - - Blocks until there is at least one. -} -getRemoteProblems :: Assistant [Remote] -getRemoteProblems = (atomically . getTList) <<~ remoteProblemChan - -{- Indicates that there was a problem accessing a remote, and the problem - - appears to not be a transient (eg network connection) problem. -} -remoteHasProblem :: Remote -> Assistant () -remoteHasProblem r = (atomically . flip consTList r) <<~ remoteProblemChan |