34 lines
740 B
Haskell
34 lines
740 B
Haskell
-- SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>
|
|
--
|
|
-- SPDX-License-Identifier: AGPL-3.0-or-later
|
|
|
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
|
|
module Prometheus.Instances
|
|
() where
|
|
|
|
import ClassyPrelude
|
|
import Prometheus
|
|
import Data.Aeson
|
|
|
|
import qualified Data.Map.Strict as Map
|
|
|
|
|
|
instance ToJSON SampleType where
|
|
toJSON = String . tshow
|
|
|
|
instance ToJSON SampleGroup where
|
|
toJSON (SampleGroup Info{..} sgType samples) = object
|
|
[ "name" .= metricName
|
|
, "help" .= metricHelp
|
|
, "type" .= sgType
|
|
, "metrics" .= samples
|
|
]
|
|
|
|
instance ToJSON Sample where
|
|
toJSON (Sample sName sLabels sValue) = object
|
|
[ "name" .= sName
|
|
, "labels" .= Map.fromList sLabels
|
|
, "value" .= decodeUtf8 sValue
|
|
]
|