conjure-0.1: src/Conjure/Protocol/THP/Types.hs

module Conjure.Protocol.THP.Types where

import Data.ByteString (ByteString)

data Response
    = Error String
    | Info { rspInterval   :: Int
           , rspComplete   :: Maybe Int
           , rspIncomplete :: Maybe Int
           , rspPeers      ::[PeerInfo] 
           } deriving (Show)

data PeerInfo = PeerInfo
    { iPeerId   :: ByteString
    , iPeerIp   :: String
    , iPeerPort :: Int
    } deriving (Show)

data Event = Started | Stopped | Completed
             deriving Show