Commit f048c574 authored by Thomas Thrainer's avatar Thomas Thrainer
Browse files

Remove trailing whitespace



Remove trailing whitespace from OpCodes.hs and OpParams.hs.
Signed-off-by: default avatarThomas Thrainer <thomasth@google.com>
Reviewed-by: default avatarKlaus Aehlig <aehlig@google.com>
parent 3fd85fba
......@@ -78,10 +78,10 @@ instance PyValue a => PyValue (SetParamsMods a) where
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
......
......@@ -479,12 +479,12 @@ pDebugSimulateErrors =
defaultFalse "debug_simulate_errors"
pErrorCodes :: Field
pErrorCodes =
pErrorCodes =
withDoc "Error codes" $
defaultFalse "error_codes"
pSkipChecks :: Field
pSkipChecks =
pSkipChecks =
withDoc "Which checks to skip" .
defaultField [| emptyListSet |] $
simpleField "skip_checks" [t| ListSet VerifyOptionalChecks |]
......@@ -822,7 +822,7 @@ pNdParams =
withDoc "Node parameters" .
renameField "genericNdParams" .
optionalField $ simpleField "ndparams" [t| JSObject JSValue |]
pNames :: Field
pNames =
withDoc "List of names" .
......@@ -916,7 +916,7 @@ pIgnoreIpolicy :: Field
pIgnoreIpolicy =
withDoc "Whether to ignore ipolicy violations" $
defaultFalse "ignore_ipolicy"
pIallocator :: Field
pIallocator =
withDoc "Iallocator for deciding the target node for shared-storage\
......@@ -1167,7 +1167,7 @@ pNewName :: Field
pNewName =
withDoc "New group or instance name" $
simpleField "new_name" [t| NonEmptyString |]
pIgnoreOfflineNodes :: Field
pIgnoreOfflineNodes =
withDoc "Whether to ignore offline nodes" $
......@@ -1245,12 +1245,12 @@ pIgnoreDiskSize :: Field
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" .
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment