Revision 608efcce Ganeti/HTools/Text.hs

b/Ganeti/HTools/Text.hs
44 44

  
45 45
-- | Load an instance from a field list
46 46
loadInst :: (Monad m) =>
47
            [(String, Int)] -> [String] -> m (String, Instance.Instance)
47
            [(String, Ndx)] -> [String] -> m (String, Instance.Instance)
48 48
loadInst ktn (name:mem:dsk:status:pnode:snode:[]) = do
49 49
  pidx <- lookupNode ktn name pnode
50 50
  sidx <- (if null snode then return Node.noSecondary

Also available in: Unified diff