2 - Copyright (C) 2015-2016 Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
4 - This file is part of FuncTorrent.
6 - FuncTorrent is free software; you can redistribute it and/or modify
7 - it under the terms of the GNU General Public License as published by
8 - the Free Software Foundation; either version 3 of the License, or
9 - (at your option) any later version.
11 - FuncTorrent is distributed in the hope that it will be useful,
12 - but WITHOUT ANY WARRANTY; without even the implied warranty of
13 - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 - GNU General Public License for more details.
16 - You should have received a copy of the GNU General Public License
17 - along with FuncTorrent; if not, see <http://www.gnu.org/licenses/>
20 {-# LANGUAGE OverloadedStrings #-}
21 module FuncTorrent.Tracker.Types
24 , TrackerEventState(..)
31 import Data.ByteString (ByteString)
32 import Control.Concurrent.MVar (MVar)
34 import FuncTorrent.Peer (Peer(..))
39 data TrackerProtocol = Http
44 data TrackerEventState = None
50 data TrackerMsg = GetStatusMsg TrackerEventState
51 | GetConnectedPeersMsg (MVar [Peer])
53 data TState = TState { left :: Integer
54 , currentState :: TrackerEventState
55 , connectedPeers :: MVar [Peer]
59 data TrackerResponse = TrackerResponse {
62 , complete :: Maybe Integer
63 , incomplete :: Maybe Integer