Revision 3131adc7 htools/Ganeti/OpParams.hs
| b/htools/Ganeti/OpParams.hs | ||
|---|---|---|
| 221 | 221 |
, pNetworkRemoveRsvdIps |
| 222 | 222 |
, pNetworkMode |
| 223 | 223 |
, pNetworkLink |
| 224 |
, dOldQuery |
|
| 225 |
, dOldQueryNoLocking |
|
| 224 | 226 |
) where |
| 225 | 227 |
|
| 226 | 228 |
import Control.Monad (liftM) |
| ... | ... | |
| 1342 | 1344 |
-- | Network link when connecting to a group. |
| 1343 | 1345 |
pNetworkLink :: Field |
| 1344 | 1346 |
pNetworkLink = simpleField "network_link" [t| NonEmptyString |] |
| 1347 |
|
|
| 1348 |
-- * Entire opcode parameter list |
|
| 1349 |
|
|
| 1350 |
-- | Old-style query opcode, with locking. |
|
| 1351 |
dOldQuery :: [Field] |
|
| 1352 |
dOldQuery = |
|
| 1353 |
[ pOutputFields |
|
| 1354 |
, pNames |
|
| 1355 |
, pUseLocking |
|
| 1356 |
] |
|
| 1357 |
|
|
| 1358 |
-- | Old-style query opcode, without locking. |
|
| 1359 |
dOldQueryNoLocking :: [Field] |
|
| 1360 |
dOldQueryNoLocking = |
|
| 1361 |
[ pOutputFields |
|
| 1362 |
, pNames |
|
| 1363 |
] |
|
Also available in: Unified diff