Revision 670b57ad

b/hscan.hs
82 82 
        nlines = map
83 83 
                 (\node ->
84 84 
                      let name = (fromJust $ lookup (Node.idx node) etn)
85 
                          t_mem = (truncate $ Node.t_mem node)::Integer
86 
                          t_dsk = (truncate $ Node.t_dsk node)::Integer
85 
                          t_mem = (truncate $ Node.t_mem node)::Int
86 
                          t_dsk = (truncate $ Node.t_dsk node)::Int
87 87 
                      in
88 88 
                        printf "%s|%d|%d|%d|%d" name
89 89 
                                   t_mem (Node.f_mem node)

Also available in: Unified diff