Fix alloc related constants value

Fix alloc related constants to fetch their value from the respective
Haskell types, which are defined in 'Ganeti.Types'.

Signed-off-by: Jose A. Lopes <jabolopes@google.com>
Reviewed-by: Klaus Aehlig <aehlig@google.com>

diff --git a/src/Ganeti/HsConstants.hs b/src/Ganeti/HsConstants.hs
index 6a1ee7f..4962b66 100644 (file)
--- a/src/Ganeti/HsConstants.hs
+++ b/src/Ganeti/HsConstants.hs
@@ -250,19 +250,16 @@ exitUnknownField = 14
 -- * Possible values for NodeGroup.alloc_policy
 
 allocPolicyLastResort :: String
-allocPolicyLastResort = "last_resort"
+allocPolicyLastResort = Types.allocPolicyToRaw AllocLastResort
 
 allocPolicyPreferred :: String
-allocPolicyPreferred = "preferred"
+allocPolicyPreferred = Types.allocPolicyToRaw AllocPreferred
 
 allocPolicyUnallocable :: String
-allocPolicyUnallocable = "unallocable"
+allocPolicyUnallocable = Types.allocPolicyToRaw AllocUnallocable
 
 validAllocPolicies :: [String]
-validAllocPolicies =
-  [allocPolicyLastResort,
-   allocPolicyPreferred,
-   allocPolicyUnallocable]
+validAllocPolicies = map Types.allocPolicyToRaw [minBound..]
 
 -- | Temporary external/shared storage parameters
 blockdevDriverManual :: String