Synnefo » snf-ganeti

  , simpleField "actualState"  [t| ActualState |]

  , optionalNullSerField $

    simpleField "uptime"       [t| String |]

  , simpleField "state_reason" [t| ReasonTrail |]

  , simpleField "status"       [t| DCStatus |]

  ])

import qualified Data.Map as Map

import qualified Data.Set as Set

import Data.Word

import Text.JSON (showJSON, readJSON, JSON, JSValue(..), fromJSString)

import qualified Text.JSON as J

-- | Class of objects that have timestamps.

class TimeStampObject a where

-- | Class of objects that have an UUID.

class UuidObject a where

timeStampFields :: (TimeStampObject a) => FieldList a b

timeStampFields =

  [ (FieldDefinition "ctime" "CTime" QFTTimestamp "Creation timestamp",

  , (FieldDefinition "mtime" "MTime" QFTTimestamp "Modification timestamp",

  ]

-- | The list of UUID fields.

import Ganeti.BasicTypes

import Ganeti.JQueue

import Ganeti.JQScheduler

import Ganeti.Logging

import Ganeti.Luxi

import qualified Ganeti.Query.Language as Qlang

               showJSON $ clusterGlusterStorageDir cluster)

            , ("maintain_node_health",

               showJSON $ clusterMaintainNodeHealth cluster)

            , ("uuid", showJSON $ clusterUuid cluster)

            , ("tags", showJSON $ clusterTags cluster)

            , ("uid_pool", showJSON $ clusterUidPool cluster)

-- | Timestamp fields description.

timeStampFields :: [Field]

-- | Serial number fields description.

serialFields :: [Field]

import qualified Data.Map as Map

import qualified Data.Set as Set

import Ganeti.JSON

import Ganeti.Objects

    (GenericContainer Map.empty)

    (PartialBeParams Nothing Nothing Nothing Nothing Nothing Nothing)

    (GenericContainer Map.empty)

-- | A fake InstanceInfo to be used to check values.

fakeInstanceInfo :: InstanceInfo