From 15981d57cda18a19fcb3012172a9f0994abfd97a Mon Sep 17 00:00:00 2001
From: AndrewRademacher <andrew.rademacher@smrxt.com>
Date: Wed, 24 Feb 2016 17:24:19 -0600
Subject: Added testing for UDP method.

---
 src/Graylog/Gelf.hs | 31 ++++++++-----------------------
 src/Graylog/UDP.hs  | 19 +++++++++++++++++++
 2 files changed, 27 insertions(+), 23 deletions(-)
 create mode 100644 src/Graylog/UDP.hs

(limited to 'src/Graylog')

diff --git a/src/Graylog/Gelf.hs b/src/Graylog/Gelf.hs
index 67e0de7..32b9321 100644
--- a/src/Graylog/Gelf.hs
+++ b/src/Graylog/Gelf.hs
@@ -7,24 +7,21 @@ module Graylog.Gelf where
 import           Data.Aeson        (ToJSON (..), Value (..), genericToJSON,
                                     toJSON)
 import           Data.Aeson.Casing
-import           Data.Scientific
 import           Data.Text         (Text)
 import           Data.Time
 import           Data.Typeable
-import           Data.Vector
 import           GHC.Generics
 
 data GELF
    = GELF
-      { _gelfVersion          :: Version
-      , _gelfHost             :: Text
-      , _gelfShortMessage     :: Text
-      , _gelfFullMessage      :: Maybe Text
-      , _gelfTimestamp        :: Maybe UTCTime
-      , _gelfLevel            :: Maybe SyslogLevel
-      , _gelfLine             :: Maybe Word
-      , _gelfFile             :: Maybe Text
-      , _gelfAdditionalFields :: Vector Field
+      { _gelfVersion      :: Version
+      , _gelfHost         :: Text
+      , _gelfShortMessage :: Text
+      , _gelfFullMessage  :: Maybe Text
+      , _gelfTimestamp    :: Maybe UTCTime
+      , _gelfLevel        :: Maybe SyslogLevel
+      , _gelfLine         :: Maybe Word
+      , _gelfFile         :: Maybe Text
       }
    deriving (Show, Typeable, Generic)
 
@@ -62,15 +59,3 @@ instance ToJSON SyslogLevel where
    toJSON Notice        = Number 5
    toJSON Informational = Number 6
    toJSON Debug         = Number 7
-
---
-
-data Field
-   = FieldString Text
-   | FieldNumber Scientific
-   deriving (Eq, Show, Typeable, Generic)
-
-instance ToJSON Field where
-   toJSON (FieldString s) = String s
-   toJSON (FieldNumber n) = Number n
-
diff --git a/src/Graylog/UDP.hs b/src/Graylog/UDP.hs
new file mode 100644
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
-- 
cgit v1.2.3