[github/fretlink/haskell-graylog.git] / src / Graylog / UDP.hs

module Graylog.UDP
   ( Graylog (..)
   , sendLog

   , module Graylog.Gelf
   ) where

import           Network.Socket

import           Graylog.Gelf

data Graylog
   = Graylog
      { _graylogHost :: String
      , _graylogPort :: String
      }

sendLog :: Graylog -> GELF -> IO ()
sendLog glog msg = undefined
Commit	Line	Data
15981d57 A	1	module Graylog.UDP
	2	( Graylog (..)
	3	, sendLog
	4
	5	, module Graylog.Gelf
	6	) where
	7
	8	import Network.Socket
	9
	10	import Graylog.Gelf
	11
	12	data Graylog
	13	= Graylog
	14	{ _graylogHost :: String
	15	, _graylogPort :: String
	16	}
	17
	18	sendLog :: Graylog -> GELF -> IO ()
	19	sendLog glog msg = undefined