LGTM, thanks.
On Mon, Oct 7, 2013 at 4:38 PM, Jose A. Lopes <[email protected]> wrote: > Fix auto repair related constants to use the Haskell type > 'AutoRepairResult' instead of simple 'String' values. > > Signed-off-by: Jose A. Lopes <[email protected]> > --- > src/Ganeti/HsConstants.hs | 14 +++++++------- > 1 file changed, 7 insertions(+), 7 deletions(-) > > diff --git a/src/Ganeti/HsConstants.hs b/src/Ganeti/HsConstants.hs > index 555a4af..c0eeda4 100644 > --- a/src/Ganeti/HsConstants.hs > +++ b/src/Ganeti/HsConstants.hs > @@ -3797,16 +3797,16 @@ autoRepairTagSuspended = autoRepairTagPrefix ++ > "suspend:" > -- * Auto-repair levels > > autoRepairFailover :: String > -autoRepairFailover = "failover" > +autoRepairFailover = Types.autoRepairTypeToRaw ArFailover > > autoRepairFixStorage :: String > -autoRepairFixStorage = "fix-storage" > +autoRepairFixStorage = Types.autoRepairTypeToRaw ArFixStorage > > autoRepairMigrate :: String > -autoRepairMigrate = "migrate" > +autoRepairMigrate = Types.autoRepairTypeToRaw ArMigrate > > autoRepairReinstall :: String > -autoRepairReinstall = "reinstall" > +autoRepairReinstall = Types.autoRepairTypeToRaw ArReinstall > > autoRepairAllTypes :: FrozenSet String > autoRepairAllTypes = > @@ -3818,13 +3818,13 @@ autoRepairAllTypes = > -- * Auto-repair results > > autoRepairEnoperm :: String > -autoRepairEnoperm = "enoperm" > +autoRepairEnoperm = Types.autoRepairResultToRaw ArEnoperm > > autoRepairFailure :: String > -autoRepairFailure = "failure" > +autoRepairFailure = Types.autoRepairResultToRaw ArFailure > > autoRepairSuccess :: String > -autoRepairSuccess = "success" > +autoRepairSuccess = Types.autoRepairResultToRaw ArSuccess > > autoRepairAllResults :: FrozenSet String > autoRepairAllResults = > -- > 1.8.4 > > -- Thomas Thrainer | Software Engineer | [email protected] | Google Germany GmbH Dienerstr. 12 80331 München Registergericht und -nummer: Hamburg, HRB 86891 Sitz der Gesellschaft: Hamburg Geschäftsführer: Graham Law, Christine Elizabeth Flores
