import Data.ByteString (ByteString)
import Control.Concurrent.MVar (MVar)
-import FuncTorrent.Peer (Peer(..))
+import FuncTorrent.PeerMsgs (Peer)
data TrackerProtocol = Http
| Udp
data TrackerEventState = None
| Started
| Completed
- | Error ByteString
+ | Stopped
deriving (Show, Eq)
data TrackerMsg = GetStatusMsg TrackerEventState