Synnefo » snf-ganeti

instance PyValue a => PyValue (NonNegative a) where

  showValue = showValue . fromNonNegative

instance PyValue a => PyValue (NonEmpty a) where

  showValue = showValue . fromNonEmpty

-- FIXME: should use the 'toRaw' function instead of being harcoded or

-- perhaps use something similar to the NonNegative type instead of

-- using the declareSADT

  defaultFalse "debug_simulate_errors"

pErrorCodes :: Field

  withDoc "Error codes" $

  defaultFalse "error_codes"

pSkipChecks :: Field

  withDoc "Which checks to skip" .

  defaultField [| emptyListSet |] $

  simpleField "skip_checks" [t| ListSet VerifyOptionalChecks |]

  withDoc "Node parameters" .

  renameField "genericNdParams" .

  optionalField $ simpleField "ndparams" [t| JSObject JSValue |]

pNames :: Field

pNames =

  withDoc "List of names" .

pIgnoreIpolicy =

  withDoc "Whether to ignore ipolicy violations" $

  defaultFalse "ignore_ipolicy"

pIallocator :: Field

pIallocator =

  withDoc "Iallocator for deciding the target node for shared-storage\

pNewName =

  withDoc "New group or instance name" $

  simpleField "new_name" [t| NonEmptyString |]

pIgnoreOfflineNodes :: Field

pIgnoreOfflineNodes =

  withDoc "Whether to ignore offline nodes" $

pIgnoreDiskSize =

  withDoc "Whether to ignore recorded disk size" $

  defaultFalse "ignore_size"

pWaitForSyncFalse :: Field

pWaitForSyncFalse =

  withDoc "Whether to wait for the disk to synchronize (defaults to false)" $

  defaultField [| False |] pWaitForSync

pRecreateDisksInfo :: Field

pRecreateDisksInfo =

  withDoc "Disk list for recreate disks" .