[commit: ghc] master: Fix the unlit path in count_lines (699dc54)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/699dc5402a0b6a703daf648953ff560376714207/ghc

>---------------------------------------------------------------

commit 699dc5402a0b6a703daf648953ff560376714207
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Nov 15 11:24:46 2013 +0000

    Fix the unlit path in count_lines


>---------------------------------------------------------------

699dc5402a0b6a703daf648953ff560376714207
 utils/count_lines/count_lines.lprl |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/utils/count_lines/count_lines.lprl b/utils/count_lines/count_lines.lprl
index bfaad51..72b4413 100644
--- a/utils/count_lines/count_lines.lprl
+++ b/utils/count_lines/count_lines.lprl
@@ -14,7 +14,7 @@ my $binPath = $FindBin::Bin;
 foreach $f ( @ARGV ) {
 
     if ( $f =~ /\.lhs$/ ) {
-        open(INF, "$binPath/../../../inplace/lib/unlit $f - |") || die "Couldn't unlit $f!\n";
+        open(INF, "$binPath/../../inplace/lib/unlit $f - |") || die "Couldn't unlit $f!\n";
     } else {
         open(INF, "< $f") || die "Couldn't open $f!\n";
     }