diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-29 13:41:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-29 13:41:44 -0400 |
| commit | 2db78797ee58e53f06bd2d104fb203c45247e7c0 (patch) | |
| tree | 3b8b7ab10eeb2cb8c787a6d57c1a03bb623ece6a /Assistant/RemoteProblem.hs | |
| parent | 255354acc20f2680126b22cc02a0893d1d72d804 (diff) | |
move code around and rename thread; no functional changes
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 |