Revision 00b15752 Ganeti/HTools/Cluster.hs

b/Ganeti/HTools/Cluster.hs
753 753
    let
754 754
    {- node file: name t_mem n_mem f_mem t_disk f_disk -}
755 755
        (ktn, nl) = loadTabular ndata
756
                    (\ (name:tm:nm:fm:td:fd:[]) ->
756
                    (\ (name:tm:nm:fm:td:fd:fo:[]) ->
757 757
                         (name,
758
                          Node.create (read tm) (read nm)
759
                                  (read fm) (read td) (read fd)))
758
                          if any (== "?") [tm,nm,fm,td,fd] || fo == "Y" then
759
                              Node.create 0 0 0 0 0 True
760
                          else
761
                              Node.create (read tm) (read nm) (read fm)
762
                                      (read td) (read fd) False
763
                         ))
760 764
                    Node.setIdx
761 765
    {- instance file: name mem disk status pnode snode -}
762 766
        (kti, il) = loadTabular idata

Also available in: Unified diff