Hi, As an alternative I tried this:
pNetworkVlan :: Field pNetworkVlan = - withDoc "Network vlan when connecting to a group" $ + withDoc "Network vlan when connecting to a group" . + defaultField [| "" |] . optionalField $ simpleField "network_vlan" [t| String |] but make doc/html exited with a (sphinx) warning: Warning, treated as error: OP_NETWORK_CONNECT:25: WARNING: Inline literal start-string without end-string. This seems to be related with the generated doc/html/rapi.html and especially the docutils literal class: <p><tt class="docutils literal"><span class="pre">network_vlan</span></tt> (defaults to <tt class="docutils literal"><span class="pre"> </span></tt>, must be <tt class="docutils literal"><span class="pre">None</span> <span class="pre">or</span> <span class="pre">String</span></tt>)</p> Apparently this cannot be fixed/bypassed, right? Thanks, dimara * Dimitris Aragiorgis <[email protected]> [2014-06-23 18:28:48 +0300]: > To keep backwards compatibility with old RAPI, make network_vlan > param of OpNetworkConnect optional. If not passed, cmdlib will use > the empty string as default value. > > Signed-off-by: Dimitris Aragiorgis <[email protected]> > --- > lib/cmdlib/network.py | 5 ++++- > src/Ganeti/OpParams.hs | 2 +- > 2 files changed, 5 insertions(+), 2 deletions(-) > > diff --git a/lib/cmdlib/network.py b/lib/cmdlib/network.py > index d93f2dd..c2f3bcb 100644 > --- a/lib/cmdlib/network.py > +++ b/lib/cmdlib/network.py > @@ -572,7 +572,10 @@ class LUNetworkConnect(LogicalUnit): > self.group_name = self.op.group_name > self.network_mode = self.op.network_mode > self.network_link = self.op.network_link > - self.network_vlan = self.op.network_vlan > + if self.op.network_vlan: > + self.network_vlan = self.op.network_vlan > + else: > + self.network_vlan = "" > > self.network_uuid = self.cfg.LookupNetwork(self.network_name) > self.group_uuid = self.cfg.LookupNodeGroup(self.group_name) > diff --git a/src/Ganeti/OpParams.hs b/src/Ganeti/OpParams.hs > index ae00822..d24b440 100644 > --- a/src/Ganeti/OpParams.hs > +++ b/src/Ganeti/OpParams.hs > @@ -1635,4 +1635,4 @@ pNetworkLink = > pNetworkVlan :: Field > pNetworkVlan = > withDoc "Network vlan when connecting to a group" $ > - simpleField "network_vlan" [t| String |] > + optionalField $ simpleField "network_vlan" [t| String |] > -- > 1.7.10.4
signature.asc
Description: Digital signature
