/
Check.hs
31 lines (26 loc) · 959 Bytes
/
Check.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
module Cardano.Tracer.Handlers.RTView.Notifications.Check
( checkCommonErrors
) where
--import Data.Text (Text)
--import qualified Data.Text as T
import Cardano.Logging (SeverityS (..))
import Cardano.Tracer.Handlers.RTView.Notifications.Types
import Cardano.Tracer.Handlers.RTView.Notifications.Utils
import Cardano.Tracer.Handlers.RTView.State.TraceObjects
import Cardano.Tracer.Types
checkCommonErrors
:: NodeId
-> TraceObjectInfo
-> EventsQueues
-> IO ()
checkCommonErrors nodeId (msg, sev, ts) eventsQueues =
case sev of
Warning -> addNewEventTo EventWarnings
Error -> addNewEventTo EventErrors
Critical -> addNewEventTo EventCriticals
Alert -> addNewEventTo EventAlerts
Emergency -> addNewEventTo EventEmergencies
_ -> return ()
where
addNewEventTo eventGroup =
addNewEvent eventsQueues eventGroup $ Event nodeId ts sev msg