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(..)
29 import Data.ByteString (ByteString)
30 import Control.Concurrent.MVar (MVar)
32 import FuncTorrent.Peer (Peer(..))
34 data TrackerProtocol = Http
39 data TrackerEventState = None
45 data TrackerMsg = GetStatusMsg TrackerEventState
46 | GetConnectedPeersMsg (MVar [Peer])
48 data TState = TState { left :: Integer
49 , currentState :: TrackerEventState
50 , connectedPeers :: MVar [Peer]
54 data TrackerResponse = TrackerResponse {
57 , complete :: Maybe Integer
58 , incomplete :: Maybe Integer