X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FFinder.lhs;h=adc33c724c1569391e7c6f54dde95e1978cc5346;hb=3c6b9911369deda84fcc74a31372e6f51e0cb054;hp=d73cba3874f3b3caeb0a8af87963e87351d19e19;hpb=4be58768d4974fd1bddae44f12a0fde1f7fe6b30;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index d73cba3..adc33c7 100644
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -281,10 +281,10 @@ mkHomeModLocation mod_name src_filename = do
    case maybePrefixMatch (reverse mod_basename) (reverse basename) of
 	Just ""   ->
 	   mkHomeModLocationSearched mod_name "."  mod_basename extension
-	Just rest -> do
+	Just rest@(r:_) | isPathSeparator r -> do
 	   let path = reverse (dropWhile (=='/') rest)
 	   mkHomeModLocationSearched mod_name path mod_basename extension
-	Nothing   -> do
+	_ -> do
 	  -- hPutStrLn stderr ("Warning: " ++ src_filename ++
 	  --			 ": filename and module name do not match")
 	  let (dir,basename,ext) = splitFilename3 src_filename