diff options
| author | AndrewRademacher <andrewrademacher@gmail.com> | 2016-02-27 21:54:20 -0600 |
|---|---|---|
| committer | AndrewRademacher <andrewrademacher@gmail.com> | 2016-02-27 21:54:20 -0600 |
| commit | b23afe7b9089b3177d9aee994464f72e52efbd2a (patch) | |
| tree | 8769449a7268c8f3e9c3cfb1eb666ce6c7735189 /src/Graylog/Gelf.hs | |
| parent | 640e69ef77aea530af800741e453b05e2802d188 (diff) | |
| download | haskell-graylog-b23afe7b9089b3177d9aee994464f72e52efbd2a.tar.gz haskell-graylog-b23afe7b9089b3177d9aee994464f72e52efbd2a.tar.zst haskell-graylog-b23afe7b9089b3177d9aee994464f72e52efbd2a.zip | |
Successful test of un-chunked message.
Diffstat (limited to 'src/Graylog/Gelf.hs')
| -rw-r--r-- | src/Graylog/Gelf.hs | 9 |
1 files changed, 9 insertions, 0 deletions
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 | |||
| 59 | toJSON Notice = Number 5 | 59 | toJSON Notice = Number 5 |
| 60 | toJSON Informational = Number 6 | 60 | toJSON Informational = Number 6 |
| 61 | toJSON Debug = Number 7 | 61 | toJSON Debug = Number 7 |
| 62 | |||
| 63 | -- | ||
| 64 | |||
| 65 | simpleGelf | ||
| 66 | :: Text -- ^ Hostname | ||
| 67 | -> Text -- ^ Short message | ||
| 68 | -> GELF | ||
| 69 | simpleGelf host short = | ||
| 70 | GELF Version1x1 host short Nothing Nothing Nothing Nothing Nothing | ||