, Port
) where
+import Data.ByteString (ByteString)
import Control.Concurrent.MVar (MVar)
import FuncTorrent.Peer (Peer(..))
data TrackerEventState = None
| Started
- | Stopped
| Completed
+ | Error ByteString
deriving (Show, Eq)
-data TrackerMsg = GetStatusMsg
+
+data TrackerMsg = GetStatusMsg TrackerEventState
| GetConnectedPeersMsg (MVar [Peer])
data TState = TState { left :: Integer