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 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