Revision 497e30a1 Ganeti/HTools/IAlloc.hs

b/Ganeti/HTools/IAlloc.hs
82 82 
  nlist <- fromObj "nodes" obj
83 83 
  let ndata = fromJSObject nlist
84 84 
  nobj <- (mapM (\(x,y) -> asJSObject y >>= parseNode x)) ndata
85 
  let (ktn, nl) = assignIndices Node.setIdx nobj
85 
  let (ktn, nl) = assignIndices nobj
86 86 
  -- existing instance parsing
87 87 
  ilist <- fromObj "instances" obj
88 88 
  let idata = fromJSObject ilist
89 89 
  iobj <- (mapM (\(x,y) -> asJSObject y >>= parseInstance ktn x)) idata
90 
  let (kti, il) = assignIndices Instance.setIdx iobj
90 
  let (kti, il) = assignIndices iobj
91 91 
  optype <- fromObj "type" request
92 92 
  rqtype <-
93 93 
      case optype of

Also available in: Unified diff