From: Bhimanavajjula Aditya <[email protected]> As these are causing problems with mkName
Signed-off-by: Bhimanavajjula Aditya <[email protected]> --- src/Ganeti/OpParams.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Ganeti/OpParams.hs b/src/Ganeti/OpParams.hs index 33784ba..125c1d1 100644 --- a/src/Ganeti/OpParams.hs +++ b/src/Ganeti/OpParams.hs @@ -904,12 +904,12 @@ pPowerDelay = pRequiredNodes :: Field pRequiredNodes = withDoc "Required list of node names" . - renameField "ReqNodes " $ simpleField "nodes" [t| [NonEmptyString] |] + renameField "ReqNodes" $ simpleField "nodes" [t| [NonEmptyString] |] pRequiredNodeUuids :: Field pRequiredNodeUuids = withDoc "Required list of node UUIDs" . - renameField "ReqNodeUuids " . optionalField $ + renameField "ReqNodeUuids" . optionalField $ simpleField "node_uuids" [t| [NonEmptyString] |] pRestrictedCommand :: Field @@ -1520,7 +1520,7 @@ pOsNameChange = pDiskIndex :: Field pDiskIndex = withDoc "Disk index for e.g. grow disk" . - renameField "DiskIndex " $ simpleField "disk" [t| DiskIndex |] + renameField "DiskIndex" $ simpleField "disk" [t| DiskIndex |] pDiskChgAmount :: Field pDiskChgAmount = @@ -1741,7 +1741,7 @@ pIAllocatorOs = pIAllocatorInstances :: Field pIAllocatorInstances = withDoc "IAllocator instances field" . - renameField "IAllocatorInstances " . + renameField "IAllocatorInstances" . optionalField $ simpleField "instances" [t| [NonEmptyString] |] -- 2.4.6
