projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-07-13 09:22:26 by sewardj]
[ghc-hetmet.git]
/
glafp-utils
/
nofib-analyse
/
Slurp.hs
diff --git
a/glafp-utils/nofib-analyse/Slurp.hs
b/glafp-utils/nofib-analyse/Slurp.hs
index
92a0529
..
2f11a7d
100644
(file)
--- 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
-----------------------------------------------------------------------------
-- (c) Simon Marlow 1997-1999
-----------------------------------------------------------------------------
@@
-348,7
+348,7
@@
parse_size prog mod (l:ls) =
Just (read text + read datas),
compile_status = Success})]
| otherwise ->
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})]
in
[(prog,emptyResults{module_size = ms})]