module Process.TrackerChan
    ( TrackerMessage(..)
    , TrackerChannel
    ) where


import Control.Concurrent.STM

data TrackerMessage
    = Stop                  -- ^ Сообщить трекеру об остановки скачивания
    | Start                 -- ^ Сообщить трекеру о начале скачивания
    | Complete              -- ^ Сообщить трекеру об окончании скачивания
    | TrackerTick Integer   -- ^ ?

type TrackerChannel = TChan TrackerMessage

