Successful test of un-chunked message.

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

diff --git a/src/Graylog/Gelf.hs b/src/Graylog/Gelf.hs
index 32b932121911f85882c3b07b9aa995af01a4bb68..cd68e057d37144f38c03839a999eca667a6dee85 100644 (file)
--- a/src/Graylog/Gelf.hs
+++ b/src/Graylog/Gelf.hs
@@ -59,3 +59,12 @@ instance ToJSON SyslogLevel where
    toJSON Notice        = Number 5
    toJSON Informational = Number 6
    toJSON Debug         = Number 7
+
+--
+
+simpleGelf
+   :: Text     -- ^ Hostname
+   -> Text     -- ^ Short message
+   -> GELF
+simpleGelf host short =
+   GELF Version1x1 host short Nothing Nothing Nothing Nothing Nothing