Revision 8bc34c7b htools/Ganeti/HTools/Text.hs

b/htools/Ganeti/HTools/Text.hs
181 181 
  gdx <- lookupGroup ktg name gu
182 182 
  new_node <-
183 183 
      if any (== "?") [tm,nm,fm,td,fd,tc] || fo == "Y" then
184 
          return $ Node.create name 0 0 0 0 0 0 True gdx
184 
          return $ Node.create name 0 0 0 0 0 0 True 0 gdx
185 185 
      else do
186 186 
        vtm <- tryRead name tm
187 187 
        vnm <- tryRead name nm
......
189 189 
        vtd <- tryRead name td
190 190 
        vfd <- tryRead name fd
191 191 
        vtc <- tryRead name tc
192 
        return $ Node.create name vtm vnm vfm vtd vfd vtc False gdx
192 
        return $ Node.create name vtm vnm vfm vtd vfd vtc False 1 gdx
193 193 
  return (name, new_node)
194 194 
loadNode _ s = fail $ "Invalid/incomplete node data: '" ++ show s ++ "'"
195 195 

  		












Also available in:
  Unified diff