Prod.Reports

Documentation

type ReportsApi a = Summary "receives and acknowledge some reports" :> ("reports" :> (ReqBody '[JSON] (Report a) :> Post '[JSON] Int))

data Report a

Some minimal report wrapper. Has low expectations on the client.

Constructors

Report

Fields

• posixTime :: Int
• backoff :: Int
• events :: [a]

Instances

FromJSON a => FromJSON (Report a)

Defined in Prod.Reports

Methods

parseJSON :: Value -> Parser (Report a)

parseJSONList :: Value -> Parser [Report a]

omittedField :: Maybe (Report a)

ToJSON a => ToJSON (Report a)

Defined in Prod.Reports

Methods

toJSON :: Report a -> Value

toEncoding :: Report a -> Encoding

toJSONList :: [Report a] -> Value

toEncodingList :: [Report a] -> Encoding

omitField :: Report a -> Bool

countReports :: Runtime a -> Report a -> Handler Int

Count and drop reports.

data Runtime a

A default runtime for the dropReports route.

initRuntime :: Tracer IO (Report a) -> IO (Runtime a)