Revision 1b0a6356 htools/Ganeti/HTools/Cluster.hs

b/htools/Ganeti/HTools/Cluster.hs
994 994 
              -- The fromJust below is ugly (it can fail nastily), but
995 995 
              -- at this point we should have any internal mismatches,
996 996 
              -- and adding a monad here would be quite involved
997 
              grpnodes = fromJust (gdx `lookup` (Node.computeGroups nodes))
997 
              grpnodes = fromJust (gdx `lookup` Node.computeGroups nodes)
998 998 
              new_cv = compCVNodes grpnodes
999 999 
              new_accu = Right (nl', inst', new_cv, ndx)
1000 1000 
          in case accu of

Also available in: Unified diff