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