1 {-# LANGUAGE DeriveDataTypeable #-}
2 {-# LANGUAGE DeriveGeneric #-}
3 {-# LANGUAGE OverloadedStrings #-}
4 {-# LANGUAGE RecordWildCards #-}
6 -- | Default formatting for Graylog messages,
7 -- see http://docs.graylog.org/en/latest/pages/gelf.html
8 module Graylog.Gelf where
10 import Data.Aeson (ToJSON (..), Value (..), object,
12 import Data.HashMap.Strict (HashMap)
13 import Data.Semigroup ((<>))
14 import Data.Text (Text)
17 import GHC.Exts (toList)
22 { _gelfVersion :: Version
24 , _gelfShortMessage :: Text
25 , _gelfFullMessage :: Maybe Text
26 , _gelfTimestamp :: Maybe UTCTime
27 , _gelfLevel :: Maybe SyslogLevel
28 , _gelfLine :: Maybe Word
29 , _gelfFile :: Maybe Text
30 , _gelfMeta :: HashMap Text Text
32 deriving (Show, Typeable, Generic)
34 instance ToJSON GELF where
35 toJSON GELF{..} = object $ [ "version" .= _gelfVersion
37 , "short_message" .= _gelfShortMessage
38 , "full_message" .= _gelfFullMessage
39 , "timestamp" .= _gelfTimestamp
40 , "level" .= _gelfLevel
43 ] <> toList (String <$> _gelfMeta)
49 deriving (Eq, Show, Typeable, Generic)
51 instance ToJSON Version where
52 toJSON Version1x1 = String "1.1"
65 deriving (Eq, Ord, Show, Typeable, Generic)
67 instance ToJSON SyslogLevel where
68 toJSON Emergency = Number 0
69 toJSON Alert = Number 1
70 toJSON Critical = Number 2
71 toJSON Error = Number 3
72 toJSON Warning = Number 4
73 toJSON Notice = Number 5
74 toJSON Informational = Number 6
75 toJSON Debug = Number 7
81 -> Text -- ^ Short message
83 simpleGelf host short =
84 GELF Version1x1 host short Nothing Nothing Nothing Nothing Nothing mempty