8 import qualified Data.ByteString.Lazy as LBS
9 import Network.Socket.ByteString.Lazy
10 import System.Random.MWC
12 import Graylog.Gelf as Export
13 import Graylog.Types as Export
15 sendLog :: Graylog -> GELF -> IO ()
16 sendLog glog msg = mapM_ (send $ _graylogSocket glog) cks
21 chunky :: LBS.ByteString -> [LBS.ByteString]