LGTM, thanks
On Wed, Jun 25, 2014 at 11:23 AM, 'Klaus Aehlig' via ganeti-devel < [email protected]> wrote: > In this way, algorithms doing allocation, like hspace, > can conveniently specify that they want to ignore this > group. > > Signed-off-by: Klaus Aehlig <[email protected]> > --- > src/Ganeti/HTools/Group.hs | 5 +++++ > 1 file changed, 5 insertions(+) > > diff --git a/src/Ganeti/HTools/Group.hs b/src/Ganeti/HTools/Group.hs > index 47e9bab..4b0900f 100644 > --- a/src/Ganeti/HTools/Group.hs > +++ b/src/Ganeti/HTools/Group.hs > @@ -31,6 +31,7 @@ module Ganeti.HTools.Group > , create > , setIdx > , isAllocable > + , setUnallocable > ) where > > import qualified Ganeti.HTools.Container as Container > @@ -100,3 +101,7 @@ setName t s = t { name = s } > -- | Checks if a group is allocable. > isAllocable :: Group -> Bool > isAllocable = (/= T.AllocUnallocable) . allocPolicy > + > +-- | Makes the group unallocatable > +setUnallocable :: Group -> Group > +setUnallocable t = t { allocPolicy = T.AllocUnallocable } > -- > 2.0.0.526.g5318336 > >
