From: rrt <unknown>
Date: Thu, 28 Jun 2001 15:45:49 +0000 (+0000)
Subject: [project @ 2001-06-28 15:45:49 by rrt]
X-Git-Tag: Approximately_9120_patches~1662
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=69394f403bbb2afd63b8ff50897182049f4cbf82;p=ghc-hetmet.git

[project @ 2001-06-28 15:45:49 by rrt]
Remove debugging statements^Wexpressions
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 7e6a0f1..6b88692 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -325,9 +325,6 @@ getTopDir :: [String]
 
 getTopDir minusbs
   = do { top_dir <- get_proto
-       ; print top_dir
-       ; if "/ghc/compiler" `isSuffixOf` top_dir then print (remove_suffix top_dir) else print "not"
-
         -- Discover whether we're running in a build tree or in an installation,
 	-- by looking for the package configuration file.
        ; am_installed <- doesFileExist (top_dir `slash` "package.conf")