module Network.Monitoring.Riemann.TCPClient where
import Network.Monitoring.Riemann.Client
import Network.Monitoring.Riemann.Event as Event
import Network.Monitoring.Riemann.TCP as TCP
import Network.Socket
import Data.Sequence as Seq
data TCPClient = TCPClient TCPConnection
tcpClient :: HostName -> Port -> IO TCPClient
tcpClient h p = do
c <- TCP.tcpConnection h p
return $ TCPClient c
instance Client TCPClient where
sendEvent (TCPClient connection) event =
TCP.sendEvents connection $ Seq.singleton event
close client = print "close"