Added testing for UDP method.

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

diff --git a/src/Graylog/UDP.hs b/src/Graylog/UDP.hs
new file mode 100644 (file)
index 0000000..6aec108
--- /dev/null
+++ b/src/Graylog/UDP.hs
@@ -0,0 +1,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