Fix the unlit path in count_lines
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 15 Nov 2013 11:24:46 +0000 (11:24 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 15 Nov 2013 11:24:46 +0000 (11:24 +0000)
utils/count_lines/count_lines.lprl

index bfaad51..72b4413 100644 (file)
@@ -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";
     }