Add client state updates eventstream

1 files changed, 9 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Client/Types.hs b/src/Network/BitTorrent/Client/Types.hs
index 3e62f0fa..d6b08efe 100644
--- a/src/Network/BitTorrent/Client/Types.hs
+++ b/src/Network/BitTorrent/Client/Types.hs
@@ -12,10 +12,14 @@ module Network.BitTorrent.Client.Types
        , getClient
 
        , MonadBitTorrent (..)
+
+         -- * Events
+       , ClientEvent (..)
        ) where
 
 import Control.Applicative
 import Control.Concurrent
+import Control.Concurrent.Chan.Split
 import Control.Monad.Logger
 import Control.Monad.Reader
 import Control.Monad.Trans.Resource
@@ -48,6 +52,7 @@ data Client = Client
   , clientNode         :: !(Node IPv4)
   , clientTorrents     :: !(MVar (HashMap InfoHash Handle))
   , clientLogger       :: !LogFun
+  , clientEvents       :: !(SendPort ClientEvent)
   }
 
 instance Eq Client where
@@ -66,6 +71,10 @@ externalAddr Client {..} = PeerAddr
   , peerPort = clientListenerPort
   }
 
+data ClientEvent
+  = TorrentAdded InfoHash
+    deriving (Show, Eq)
+
 {-----------------------------------------------------------------------
 --  BitTorrent monad
 -----------------------------------------------------------------------}