{-# LANGUAGE OverloadedStrings #-}
module Network.Datadog.Check
( CheckStatus(..)
, CheckResult(..)
, recordCheck
, HasStatus(..)
, HasHostName(..)
, HasCheck(..)
, HasTimestamp(..)
, HasTags(..)
, HasMessage(..)
, AsCheckStatus(..)
,
) where
import Control.Monad (void)
import Data.Aeson (encode)
import Network.HTTP.Types
import Network.Datadog.Internal
recordCheck :: Environment -> CheckResult -> IO ()
recordCheck env checkResult =
let path = "check_run"
in void $ datadogHttp env path [] POST $ Just $ encode checkResult