, TrackerResponse(..)
, TrackerEventState(..)
, TState(..)
+ , TrackerMsg(..)
, IP
, Port
) where
| Stopped
| Completed
deriving (Show, Eq)
+data TrackerMsg = GetStatusMsg
+ | GetConnectedPeersMsg (MVar [Peer])
-data TState = TState {
- uploaded :: MVar Integer
- , downloaded :: MVar Integer
- , left :: Integer
- , currentState :: TrackerEventState
- , connectedPeers :: MVar [Peer]
- }
+data TState = TState { left :: Integer
+ , currentState :: TrackerEventState
+ , connectedPeers :: MVar [Peer]
+ }
-- | Tracker response
data TrackerResponse = TrackerResponse {