X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=glafp-utils%2Fnofib-analyse%2FSlurp.hs;h=2f11a7df7f2a20a5d5bfd707e3b19f92654d7591;hb=9df21db498fed4645fc624e692d70672a84432dc;hp=92a0529c404e25b49b18be909d034bf99a65fe76;hpb=b7081c5f00ef3947dbb39f942b4c5edaf524b3b5;p=ghc-hetmet.git

diff --git a/glafp-utils/nofib-analyse/Slurp.hs b/glafp-utils/nofib-analyse/Slurp.hs
index 92a0529..2f11a7d 100644
--- a/glafp-utils/nofib-analyse/Slurp.hs
+++ b/glafp-utils/nofib-analyse/Slurp.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: Slurp.hs,v 1.1 1999/11/12 11:54:17 simonmar Exp $
+-- $Id: Slurp.hs,v 1.2 2000/02/18 10:25:53 simonmar Exp $
 
 -- (c) Simon Marlow 1997-1999
 -----------------------------------------------------------------------------
@@ -348,7 +348,7 @@ parse_size prog mod (l:ls) =
 					      Just (read text + read datas),
 				    compile_status = Success})]
 		 | otherwise ->
-			let ms  = addToFM emptyFM mod (read text)
+			let ms  = addToFM emptyFM mod (read text + read datas)
 			in
 			[(prog,emptyResults{module_size = ms})]