blob: 539da3db949f4e0f6d4f2568a3dfb6e8ed8a5102 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{- git-annex assistant remote problem detection
-
- Copyright 2013 Joey Hess <joey@kitenet.net>
-
- Licensed under the GNU GPL version 3 or higher.
-}
module Assistant.Types.RemoteProblem where
import Types
import Utility.TList
import Control.Concurrent.STM
type RemoteProblemChan = TList Remote
newRemoteProblemChan :: IO RemoteProblemChan
newRemoteProblemChan = atomically newTList
|
