src/Graylog/UDP.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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