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

b/htools/Ganeti/HTools/Cluster.hs
109 109
    { esMoved   :: [(Idx, Gdx, [Ndx])]  -- ^ Instances moved successfully
110 110
    , esFailed  :: [(Idx, String)]      -- ^ Instances which were not
111 111
                                        -- relocated
112
    , esOpCodes :: [[[OpCodes.OpCode]]] -- ^ List of lists of jobs
112
    , esOpCodes :: [[OpCodes.OpCode]]   -- ^ List of jobs
113 113
    }
114 114

  
115 115
-- | Allocation results, as used in 'iterateAlloc' and 'tieredAlloc'.
......
1085 1085
    (nl, il, es { esFailed = (idx, msg):esFailed es})
1086 1086
updateEvacSolution (_, _, es) idx (Ok (nl, il, opcodes)) =
1087 1087
    (nl, il, es { esMoved = new_elem:esMoved es
1088
                , esOpCodes = [opcodes]:esOpCodes es })
1088
                , esOpCodes = opcodes:esOpCodes es })
1089 1089
     where inst = Container.find idx il
1090 1090
           new_elem = (idx,
1091 1091
                       instancePriGroup nl inst,

Also available in: Unified diff