]>
Commit | Line | Data |
---|---|---|
15981d57 | 1 | module Graylog.UDP |
c91dbdc0 | 2 | ( sendLog |
15981d57 | 3 | |
2ff46fce | 4 | , module Export |
15981d57 A |
5 | ) where |
6 | ||
c91dbdc0 A |
7 | import Data.Aeson |
8 | import qualified Data.ByteString.Lazy as LBS | |
9 | import Network.Socket.ByteString.Lazy | |
10 | import System.Random.MWC | |
11 | ||
12 | import Graylog.Gelf as Export | |
13 | import Graylog.Types as Export | |
15981d57 A |
14 | |
15 | sendLog :: Graylog -> GELF -> IO () | |
c91dbdc0 A |
16 | sendLog glog msg = mapM_ (send $ _graylogSocket glog) cks |
17 | where | |
18 | raw = encode msg | |
19 | cks = chunky raw | |
2ff46fce | 20 | |
c91dbdc0 A |
21 | chunky :: LBS.ByteString -> [LBS.ByteString] |
22 | chunky = undefined |