Revision 00b15752 hscan.hs

b/hscan.hs
79 79
                          t_mem = (truncate $ Node.t_mem node)::Int
80 80
                          t_dsk = (truncate $ Node.t_dsk node)::Int
81 81
                      in
82
                        printf "%s|%d|%d|%d|%d|%d" name
82
                        printf "%s|%d|%d|%d|%d|%d|%c" name
83 83
                                   t_mem (Node.n_mem node) (Node.f_mem node)
84
                                   t_dsk (Node.f_dsk node))
84
                                   t_dsk (Node.f_dsk node)
85
                                   (if Node.offline node then 'Y' else 'N')
86
                 )
85 87
                 nodes
86 88
    in unlines nlines
87 89

  

Also available in: Unified diff