Revision f2152285
| b/src/Ganeti/HsConstants.hs | ||
|---|---|---|
| 1990 | 1990 |
ndOvsName :: String |
| 1991 | 1991 |
ndOvsName = "ovs_name" |
| 1992 | 1992 |
|
| 1993 |
ndSshPort :: String |
|
| 1994 |
ndSshPort = "ssh_port" |
|
| 1995 |
|
|
| 1993 | 1996 |
ndsParameterTypes :: Map String VType |
| 1994 | 1997 |
ndsParameterTypes = |
| 1995 | 1998 |
Map.fromList |
| ... | ... | |
| 1998 | 2001 |
(ndOvs, VTypeBool), |
| 1999 | 2002 |
(ndOvsLink, VTypeMaybeString), |
| 2000 | 2003 |
(ndOvsName, VTypeMaybeString), |
| 2001 |
(ndSpindleCount, VTypeInt)] |
|
| 2004 |
(ndSpindleCount, VTypeInt), |
|
| 2005 |
(ndSshPort, VTypeInt)] |
|
| 2002 | 2006 |
|
| 2003 | 2007 |
ndsParameters :: FrozenSet String |
| 2004 | 2008 |
ndsParameters = ConstantUtils.mkSet (Map.keys ndsParameterTypes) |
| ... | ... | |
| 3695 | 3699 |
, (ndOvs, PyValueEx False) |
| 3696 | 3700 |
, (ndOvsName, PyValueEx defaultOvs) |
| 3697 | 3701 |
, (ndOvsLink, PyValueEx "") |
| 3702 |
, (ndSshPort, PyValueEx (22 :: Int)) |
|
| 3698 | 3703 |
] |
| 3699 | 3704 |
|
| 3700 | 3705 |
ndcGlobals :: FrozenSet String |
| b/src/Ganeti/Objects.hs | ||
|---|---|---|
| 545 | 545 |
, simpleField "ovs" [t| Bool |] |
| 546 | 546 |
, simpleField "ovs_name" [t| String |] |
| 547 | 547 |
, simpleField "ovs_link" [t| String |] |
| 548 |
, simpleField "ssh_port" [t| Int |] |
|
| 548 | 549 |
]) |
| 549 | 550 |
|
| 550 | 551 |
$(buildObject "Node" "node" $ |
Also available in: Unified diff