From: sewardj <unknown>
Date: Wed, 27 Jun 2001 15:03:35 +0000 (+0000)
Subject: [project @ 2001-06-27 15:03:35 by sewardj]
X-Git-Tag: Approximately_9120_patches~1688
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=22f39e87cbbfb818250ef860075069f7127aa0d0;p=ghc-hetmet.git

[project @ 2001-06-27 15:03:35 by sewardj]
wibble to do with findOnPackagePath
---

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 7dc2985..2322db9 100644
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -176,7 +176,7 @@ findOnPackagePath pkgs file = loop pkgs
     found <- findOnPath (import_dirs p) file
     case found of
 	Nothing   -> loop ps
-	Just path -> return (Just (mkFastString (name p), path ++ '/':file))
+	Just path -> return (Just (mkFastString (name p), path))
 
 findOnPath :: [String] -> String -> IO (Maybe FilePath)
 findOnPath path s = loop path