{-# LANGUAGE OverloadedStrings #-}
module Network.Datadog.Downtime
( DowntimeSpec(..)
, Downtime
, minimalDowntimeSpec
, scheduleDowntime
, updateDowntime
, cancelDowntime
, loadDowntime
, loadDowntimes
, HasScope(..)
, HasSpec(..)
, HasMessage(..)
, HasStart(..)
, HasEnd(..)
, HasId'(..)
, DowntimeId
) where
import Control.Monad (void)
import Data.Aeson
import Network.HTTP.Types
import Network.Datadog.Internal
minimalDowntimeSpec :: Tag -> DowntimeSpec
minimalDowntimeSpec = DowntimeSpec Nothing Nothing Nothing
scheduleDowntime :: Environment -> DowntimeSpec -> IO Downtime
scheduleDowntime env dspec =
let path = "downtime"
in datadogHttp env path [] POST (Just $ encode dspec) >>=
decodeDatadog "scheduleDowntime"
updateDowntime :: Environment -> DowntimeId -> DowntimeSpec -> IO Downtime
updateDowntime env did dspec =
let path = "downtime/" ++ show did
in datadogHttp env path [] PUT (Just $ encode dspec) >>=
decodeDatadog "updateDowntime"
cancelDowntime :: Environment -> DowntimeId -> IO ()
cancelDowntime env downtimeId =
let path = "downtime/" ++ show downtimeId
in void $ datadogHttp env path [] DELETE Nothing
loadDowntime :: Environment -> DowntimeId -> IO Downtime
loadDowntime env downtimeId =
let path = "downtime/" ++ show downtimeId
in datadogHttp env path [] GET Nothing >>=
decodeDatadog "loadDowntime"
loadDowntimes :: Environment -> Bool -> IO [Downtime]
loadDowntimes env active =
let path = "downtime"
q = [("current_only", "true") | active]
in datadogHttp env path q GET Nothing >>=
decodeDatadog "loadDowntimes"