Revision a91d6b30 src/Ganeti/HsConstants.hs

b/src/Ganeti/HsConstants.hs
775 775
rpcConnectTimeout :: Int
776 776
rpcConnectTimeout = 5
777 777

  
778
-- * VTypes
779

  
780
vtypeBool :: VType
781
vtypeBool = VTypeBool
782

  
783
vtypeInt :: VType
784
vtypeInt = VTypeInt
785

  
786
vtypeMaybeString :: VType
787
vtypeMaybeString = VTypeMaybeString
788

  
789
-- | Size in MiBs
790
vtypeSize :: VType
791
vtypeSize = VTypeSize
792

  
793
vtypeString :: VType
794
vtypeString = VTypeString
795

  
796
enforceableTypes :: FrozenSet VType
797
enforceableTypes = ConstantUtils.mkSet [minBound..]
778 798

  
779 799
-- | Instance specs
780 800
--
......
913 933
rebootTypes :: FrozenSet String
914 934
rebootTypes = ConstantUtils.mkSet $ map Types.rebootTypeToRaw [minBound..]
915 935

  
916
-- * VTypes
917 936

  
918
vtypeBool :: String
919
vtypeBool = Types.vTypeToRaw VTypeBool
920 937

  
921
vtypeInt :: String
922
vtypeInt = Types.vTypeToRaw VTypeInt
923 938

  
924
vtypeMaybeString :: String
925
vtypeMaybeString = Types.vTypeToRaw VTypeMaybeString
926 939

  
927
-- | Size in MiBs
928
vtypeSize :: String
929
vtypeSize = Types.vTypeToRaw VTypeSize
930 940

  
931
vtypeString :: String
932
vtypeString = Types.vTypeToRaw VTypeString
933 941

  
934
enforceableTypes :: FrozenSet String
935
enforceableTypes = ConstantUtils.mkSet $ map Types.vTypeToRaw [minBound..]
936 942

  
937 943
-- * OOB supported commands
938 944

  

Also available in: Unified diff