From 22f39e87cbbfb818250ef860075069f7127aa0d0 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Wed, 27 Jun 2001 15:03:35 +0000
Subject: [PATCH] [project @ 2001-06-27 15:03:35 by sewardj] wibble to do with
 findOnPackagePath

---
 ghc/compiler/main/Finder.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4