data-prometheus

Pure Prometheus metrics parser and builder.

Usage

Parsing metrics

import qualified Data.Prometheus
import qualified Network.Wreq
import qualified Data.ByteString.Lazy
main :: IO ()
main = do
  r <- Network.Wreq.get "https://localhost:9100/metrics"
  case Data.Prometheus.parseProm
        (Data.ByteString.Lazy.toStrict $ r ^. responseBody)
  of
    Right result -> print result
    Left err -> putStrLn err

Generating metrics

In monadic manner

{-# LANGUAGE OverloadedStrings #-}
import Data.Prometheus
import qualified Data.Text.IO
main :: IO ()
main = do
  Data.Text.IO.putStrLn
  $ runMetrics (metric "readme")
  $ do
    addMetric
      "subMetric"
      (Counter 13)
    logError "something is not right"
    addMetric'
      ( sub "anotherSubMetric"
      . sub "gauge"
      . label "key" "val")
      (Gauge 13)

or alternatively define ToMetrics instances for your data types.

Above example will output:

# HELP readme_gauge_anotherSubMetric 
# TYPE readme_gauge_anotherSubMetric gauge
readme_gauge_anotherSubMetric{key="val"} 13.0
# HELP readme_subMetric 
# TYPE readme_subMetric counter
readme_subMetric 13.0
# ERROR something is not right