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

b/htools/Ganeti/HTools/IAlloc.hs
188 188
                return $ NodeEvacuate rl_idx rl_mode
189 189

  
190 190
          | otherwise -> fail ("Invalid request type '" ++ optype ++ "'")
191
  return $ (msgs, Request rqtype cdata)
191
  return (msgs, Request rqtype cdata)
192 192

  
193 193
-- | Formats the result into a valid IAllocator response message.
194 194
formatResponse :: Bool     -- ^ Whether the request was successful
......
215 215
    (nl, inst, nodes, _):[] ->
216 216
        do
217 217
          let il' = Container.add (Instance.idx inst) inst il
218
          return (info, showJSON $ map (Node.name) nodes, nl, il')
218
          return (info, showJSON $ map Node.name nodes, nl, il')
219 219
    _ -> fail "Internal error: multiple allocation solutions"
220 220

  
221 221
-- | Convert a node-evacuation/change group result.

Also available in: Unified diff