src/Graylog/UDP.hs

   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