diff --git a/hscan.hs b/hscan.hs
index 4272b795a326a16c20bc2ba691cf4e1521296258..dd267984b943e9ad1d309e276304c55c5c21158a 100644
--- a/hscan.hs
+++ b/hscan.hs
@@ -82,8 +82,8 @@ serializeNodes nl csf ktn =
         nlines = map
                  (\node ->
                       let name = (fromJust $ lookup (Node.idx node) etn)
-                          t_mem = (truncate $ Node.t_mem node)::Integer
-                          t_dsk = (truncate $ Node.t_dsk node)::Integer
+                          t_mem = (truncate $ Node.t_mem node)::Int
+                          t_dsk = (truncate $ Node.t_dsk node)::Int
                       in
                         printf "%s|%d|%d|%d|%d" name
                                    t_mem (Node.f_mem node)