From b23afe7b9089b3177d9aee994464f72e52efbd2a Mon Sep 17 00:00:00 2001 From: AndrewRademacher Date: Sat, 27 Feb 2016 21:54:20 -0600 Subject: Successful test of un-chunked message. --- src/Graylog/Gelf.hs | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'src/Graylog/Gelf.hs') diff --git a/src/Graylog/Gelf.hs b/src/Graylog/Gelf.hs index 32b9321..cd68e05 100644 --- 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 -- cgit v1.2.3