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