Synnefo » snf-ganeti » ganeti-local

import Data.ByteString.Char8 hiding (map)

import qualified Ganeti.DataCollectors.Drbd as Drbd

import Ganeti.DataCollectors.Types

-- | Type describing a data collector basic information

data DataCollector = DataCollector

  { dName     :: String           -- ^ Name of the data collector

  , dCategory :: Maybe DCCategory -- ^ Category (storage, instance, ecc)

                                  --   of the collector

  , dKind     :: DCKind           -- ^ Kind (performance or status reporting) of

                                  --   the data collector

  }

-- | The list of available builtin data collectors.

collectors :: [DataCollector]

collectors =

  [ DataCollector Drbd.dcName Drbd.dcCategory Drbd.dcKind

  ]

-- | Get the JSON representation of a data collector to be used in the collector

-- list.

dcListItem :: DataCollector -> J.JSValue

dcListItem dc =

  J.JSArray

    [ J.showJSON $ dName dc

    , maybe J.JSNull J.showJSON $ dCategory dc

    , J.showJSON $ dKind dc

    ]

  dir "collectors" . writeBS . pack . J.encode $ map dcListItem collectors