diff --git a/Ganeti/HTools/Cluster.hs b/Ganeti/HTools/Cluster.hs
index 1062b78332192b9d73c84b79e1c84aa713b16650..cf04f7f0bde4d73d2efaa0f1c5327dd296bdaa53 100644
--- a/Ganeti/HTools/Cluster.hs
+++ b/Ganeti/HTools/Cluster.hs
@@ -639,7 +639,7 @@ tryReloc nl il xid 1 ex_idx =
         valid_idxes = map Node.idx valid_nodes
         sols1 = map (\x -> let (mnl, _, _, _) =
                                     applyMove nl inst (ReplaceSecondary x)
-                            in (mnl, [Container.find x nl])
+                           in (mnl, [Container.find x nl])
                      ) valid_idxes
     in return sols1