[project @ 2001-06-28 15:45:49 by rrt]

[ghc-hetmet.git] / ghc / compiler / main / SysTools.lhs

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 7e6a0f1..6b88692 100644 (file)
--- 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")