From 670b57ad86d4ef9927b1e791433dffd0277b6505 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Sun, 22 Mar 2009 00:06:51 +0100
Subject: [PATCH] Small change in hscan
This fixes a mistake between Int/Integer. Should be more careful :)
---
hscan.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/hscan.hs b/hscan.hs
index 4272b795a..dd267984b 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)
--
GitLab