From: simonmar <unknown>
Date: Fri, 21 Jun 2002 12:53:03 +0000 (+0000)
Subject: [project @ 2002-06-21 12:53:03 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1941
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9cdd5cb9454ebc2d960d0c0f53bac8a576cab329;hp=597d56f16e72a6764cec1d34dd095de479f589ec;p=ghc-hetmet.git

[project @ 2002-06-21 12:53:03 by simonmar]
bugfix
---

diff --git a/ghc/compiler/count_lines b/ghc/compiler/count_lines
index 3ede63d..8c7905c 100644
--- a/ghc/compiler/count_lines
+++ b/ghc/compiler/count_lines
@@ -38,7 +38,7 @@ foreach $f ( @ARGV ) {
     } else {
 	print STDERR "not counted in a directory: $f\n";
 	$ModCount{$f} += $cnt;
-	$ModComments{$mod} += $comments;
+	$ModComments{$f} += $comments;
     }
 }