Commit becfd918 authored by Jose A. Lopes's avatar Jose A. Lopes
Browse files

Hs2Py constants: improve auto repair



Fix auto repair related constants to use the Haskell type 'AutoRepairResult' instead of simple 'String' values.
Signed-off-by: default avatarJose A. Lopes <jabolopes@google.com>
Reviewed-by: default avatarThomas Thrainer <thomasth@google.com>
parent 81ae485c
...@@ -3796,16 +3796,16 @@ autoRepairTagSuspended = autoRepairTagPrefix ++ "suspend:" ...@@ -3796,16 +3796,16 @@ autoRepairTagSuspended = autoRepairTagPrefix ++ "suspend:"
-- * Auto-repair levels -- * Auto-repair levels
autoRepairFailover :: String autoRepairFailover :: String
autoRepairFailover = "failover" autoRepairFailover = Types.autoRepairTypeToRaw ArFailover
autoRepairFixStorage :: String autoRepairFixStorage :: String
autoRepairFixStorage = "fix-storage" autoRepairFixStorage = Types.autoRepairTypeToRaw ArFixStorage
autoRepairMigrate :: String autoRepairMigrate :: String
autoRepairMigrate = "migrate" autoRepairMigrate = Types.autoRepairTypeToRaw ArMigrate
autoRepairReinstall :: String autoRepairReinstall :: String
autoRepairReinstall = "reinstall" autoRepairReinstall = Types.autoRepairTypeToRaw ArReinstall
autoRepairAllTypes :: FrozenSet String autoRepairAllTypes :: FrozenSet String
autoRepairAllTypes = autoRepairAllTypes =
...@@ -3817,13 +3817,13 @@ autoRepairAllTypes = ...@@ -3817,13 +3817,13 @@ autoRepairAllTypes =
-- * Auto-repair results -- * Auto-repair results
autoRepairEnoperm :: String autoRepairEnoperm :: String
autoRepairEnoperm = "enoperm" autoRepairEnoperm = Types.autoRepairResultToRaw ArEnoperm
autoRepairFailure :: String autoRepairFailure :: String
autoRepairFailure = "failure" autoRepairFailure = Types.autoRepairResultToRaw ArFailure
autoRepairSuccess :: String autoRepairSuccess :: String
autoRepairSuccess = "success" autoRepairSuccess = Types.autoRepairResultToRaw ArSuccess
autoRepairAllResults :: FrozenSet String autoRepairAllResults :: FrozenSet String
autoRepairAllResults = autoRepairAllResults =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment