Revision bd1794b2 Ganeti/HTools/IAlloc.hs

b/Ganeti/HTools/IAlloc.hs
55 55 
    base <- parseBaseInstance n a
56 56 
    nodes <- fromObj "nodes" a
57 57 
    pnode <- readEitherString $ head nodes
58 
    snode <- readEitherString $ (head . tail) nodes
59 58 
    pidx <- lookupNode ktn n pnode
60 
    sidx <- lookupNode ktn n snode
59 
    let snodes = tail nodes
60 
    sidx <- (if null snodes then return Node.noSecondary
61 
             else (readEitherString $ head snodes) >>= lookupNode ktn n)
61 62 
    return (n, Instance.setBoth (snd base) pidx sidx)
62 63 

  		





  63
  64
  
    
parseNode :: String -> JSObject JSValue -> Result (String, Node.Node)


  		












Also available in:
  Unified diff