Hs2Py constants: assorted constants

Add some assorted constants to the Haskell to Python constant generation.
Signed-off-by: Jose A. Lopes <jabolopes@google.com>
Reviewed-by: Thomas Thrainer <thomasth@google.com>

lib/constants.py

@@ -1452,13 +1452,10 @@ IPOLICY_DEFAULTS = {
   IPOLICY_SPINDLE_RATIO: 32.0,
   }
 
-MASTER_POOL_SIZE_DEFAULT = 10
+MASTER_POOL_SIZE_DEFAULT = _constants.MASTER_POOL_SIZE_DEFAULT
 
-# Exclusive storage:
-# Error margin used to compare physical disks
-PART_MARGIN = .01
-# Space reserved when creating instance disks
-PART_RESERVED = .02
+PART_MARGIN = _constants.PART_MARGIN
+PART_RESERVED = _constants.PART_RESERVED
 
 CONFD_PROTOCOL_VERSION = _constants.CONFD_PROTOCOL_VERSION
 

src/Ganeti/HsConstants.hs

@@ -3449,6 +3449,19 @@ ispecsMinmaxDefaults =
      (ConstantUtils.ispecNicCount, Types.iSpecNicCount Types.defMaxISpec),
      (ConstantUtils.ispecSpindleUse, Types.iSpecSpindleUse Types.defMaxISpec)])]
 
+masterPoolSizeDefault :: Int
+masterPoolSizeDefault = 10
+
+-- * Exclusive storage
+
+-- | Error margin used to compare physical disks
+partMargin :: Double
+partMargin = 0.01
+
+-- | Space reserved when creating instance disks
+partReserved :: Double
+partReserved = 0.02
+
 -- * Confd
 
 confdProtocolVersion :: Int