Synnefo » snf-ganeti

import Data.Text.Lazy (pack, unpack)

import qualified Text.JSON as J

import qualified Data.Sequence as Seq

import qualified Ganeti.BasicTypes as BT

import qualified Ganeti.Constants as C

-- | Computes the average load for every CPU and the overall from data read

-- from the map.

  let window = Seq.takeWhileL ((> w) . fst) s

      go Seq.EmptyL          _                    = []

      go _                   Seq.EmptyR           = []

        let (timestampL, listL) = leftmost

            (timestampR, listR) = rightmost

            work = zipWith (-) listL listR

        map (\x -> fromIntegral x / fromIntegral overall) work

  in go (Seq.viewl window) (Seq.viewr window)

-- | This function computes the JSON representation of the CPU load.

buildJsonReport :: Buffer -> IO J.JSValue

-- | This function computes the DCReport for the CPU load.

buildDCReport :: Buffer -> IO DCReport