Revision 6bce7ba2 src/Ganeti/OpParams.hs

b/src/Ganeti/OpParams.hs
120 120
  , pClusterOsParams
121 121
  , pClusterOsParamsPrivate
122 122
  , pInstOsParams
123
  , pInstOsParamsPrivate
124
  , pInstOsParamsSecret
123 125
  , pCandidatePoolSize
124 126
  , pMaxRunningJobs
125 127
  , pUidPool
......
1098 1100
  defaultField [| toJSObject [] |] $
1099 1101
  simpleField "osparams" [t| JSObject JSValue |]
1100 1102

  
1103
pInstOsParamsPrivate :: Field
1104
pInstOsParamsPrivate =
1105
  withDoc "Private OS parameters for instance" .
1106
  optionalField $
1107
  simpleField "osparams_private" [t| JSObject (Private JSValue) |]
1108

  
1109
pInstOsParamsSecret :: Field
1110
pInstOsParamsSecret =
1111
  withDoc "Secret OS parameters for instance" .
1112
  optionalField $
1113
  simpleField "osparams_secret" [t| JSObject (Private JSValue) |]
1114

  
1101 1115
pPrimaryNode :: Field
1102 1116
pPrimaryNode =
1103 1117
  withDoc "Primary node for an instance" $

Also available in: Unified diff