Revision 7dcb7e22 src/Ganeti/Objects.hs
| b/src/Ganeti/Objects.hs | ||
|---|---|---|
| 103 | 103 |
import Ganeti.JSON |
| 104 | 104 |
import Ganeti.Types |
| 105 | 105 |
import Ganeti.THH |
| 106 |
import Ganeti.Utils (sepSplit, tryRead) |
|
| 106 |
import Ganeti.Utils (sepSplit, tryRead, parseUnitAssumeBinary)
|
|
| 107 | 107 |
|
| 108 | 108 |
-- * Generic definitions |
| 109 | 109 |
|
| ... | ... | |
| 421 | 421 |
-- * Instance definitions |
| 422 | 422 |
|
| 423 | 423 |
$(buildParam "Be" "bep" |
| 424 |
[ simpleField "minmem" [t| Int |] |
|
| 425 |
, simpleField "maxmem" [t| Int |] |
|
| 424 |
[ specialNumericalField 'parseUnitAssumeBinary |
|
| 425 |
$ simpleField "minmem" [t| Int |] |
|
| 426 |
, specialNumericalField 'parseUnitAssumeBinary |
|
| 427 |
$ simpleField "maxmem" [t| Int |] |
|
| 426 | 428 |
, simpleField "vcpus" [t| Int |] |
| 427 | 429 |
, simpleField "auto_balance" [t| Bool |] |
| 428 | 430 |
, simpleField "always_failover" [t| Bool |] |
Also available in: Unified diff