LGTM, thanks
On Mon, Jul 7, 2014 at 3:45 PM, 'Klaus Aehlig' via ganeti-devel < [email protected]> wrote: > ...and merge with '<-' to get a pure computation > outside the monad. > > Signed-off-by: Klaus Aehlig <[email protected]> > --- > src/Ganeti/HTools/Backend/Luxi.hs | 8 ++++---- > 1 file changed, 4 insertions(+), 4 deletions(-) > > diff --git a/src/Ganeti/HTools/Backend/Luxi.hs > b/src/Ganeti/HTools/Backend/Luxi.hs > index 669d9aa..cf29e60 100644 > --- a/src/Ganeti/HTools/Backend/Luxi.hs > +++ b/src/Ganeti/HTools/Backend/Luxi.hs > @@ -220,10 +220,10 @@ parseNode ktg [ name, mtotal, mnode, mfree, dtotal, > dfree > xsptotal <- if xexcl_stor > then lvconvert 0 "sptotal" sptotal > else convert "spindles" spindles > - xspfree <- genericResult (const $ return (0 :: Int)) return > - $ lvconvert 0 "spfree" spfree > - -- "spfree" might be missing, if sharedfile is the only > - -- supported disk template > + let xspfree = genericResult (const (0 :: Int)) id > + $ lvconvert 0 "spfree" spfree > + -- "spfree" might be missing, if sharedfile is the only > + -- supported disk template > xmtotal <- lvconvert 0.0 "mtotal" mtotal > xmnode <- lvconvert 0 "mnode" mnode > xmfree <- lvconvert 0 "mfree" mfree > -- > 2.0.0.526.g5318336 > >
