src/FuncTorrent/Tracker/Types.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2 {-
   3 Copyright (C) 2015-2016 Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
   4
   5 This file is part of FuncTorrent.
   6
   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.
  11
  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.
  16
  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/>
  19 -}
  20
  21 module FuncTorrent.Tracker.Types
  22        ( TrackerProtocol(..)
  23        , TrackerResponse(..)
  24        , TrackerEventState(..)
  25        , TState(..)
  26        , TrackerMsg(..)
  27        , IP
  28        , Port
  29        ) where
  30
  31 import Control.Concurrent.MVar (MVar)
  32
  33 import FuncTorrent.Peer (Peer(..))
  34
  35 type IP = String
  36 type Port = Integer
  37
  38 data TrackerProtocol = Http
  39                      | Udp
  40                      | UnknownProtocol
  41                      deriving (Show)
  42
  43 data TrackerEventState = None
  44                        | Started
  45                        | Stopped
  46                        | Completed
  47                        deriving (Show, Eq)
  48 data TrackerMsg = GetStatusMsg
  49                 | GetConnectedPeersMsg (MVar [Peer])
  50
  51 data TState = TState { left :: Integer
  52                      , currentState :: TrackerEventState
  53                      , connectedPeers :: MVar [Peer]
  54                      }
  55
  56 -- | Tracker response
  57 data TrackerResponse = TrackerResponse {
  58   interval :: Integer
  59   , peers :: [Peer]
  60   , complete :: Maybe Integer
  61   , incomplete :: Maybe Integer
  62   } deriving (Show, Eq)