...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
