{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE ExistentialQuantification #-}
module System.Metrics.Prometheus.Ridley.Types.Internal
( RidleyMetricHandler(..)
, Logger
) where
import Katip
import GHC.Stack
import qualified Data.Text as T
data RidleyMetricHandler = forall c. RidleyMetricHandler {
()
metric :: c
, ()
updateMetric :: c -> Bool -> IO ()
, RidleyMetricHandler -> Bool
flush :: !Bool
, RidleyMetricHandler -> Text
label :: !T.Text
, RidleyMetricHandler -> CallStack
_cs :: CallStack
}
type Logger = Severity -> T.Text -> IO ()