[PATCH master 12/12] fixup! Replace explicit case with 'either'

[Iustin Pop]

---
 htools/Ganeti/HTools/Cluster.hs |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/htools/Ganeti/HTools/Cluster.hs b/htools/Ganeti/HTools/Cluster.hs
index 1f868f5..e9e423a 100644
--- a/htools/Ganeti/HTools/Cluster.hs
+++ b/htools/Ganeti/HTools/Cluster.hs
@@ -1003,8 +1003,9 @@ evacOneNodeInner :: Node.List         -- ^ Cluster node 
list
                  -> EvacInnerState    -- ^ New best solution
 evacOneNodeInner nl inst gdx op_fn accu ndx =
   case applyMove nl inst (op_fn ndx) of
-    OpFail fm -> either (const $ Left $ "Node " ++ Container.nameOf nl ndx ++
-                         " failed: " ++ show fm) (const accu) accu
+    OpFail fm -> let fail_msg = "Node " ++ Container.nameOf nl ndx ++
+                                " failed: " ++ show fm
+                 in either (const $ Left fail_msg) (const accu) accu
     OpGood (nl', inst', _, _) ->
       let nodes = Container.elems nl'
           -- The fromJust below is ugly (it can fail nastily), but
-- 
1.7.9.1