Commit 74a7a264 authored by sof's avatar sof
Browse files

[project @ 2001-06-08 18:59:11 by sof]

findOnPackagePath: return file-path not directory
parent 8ec05915
......@@ -160,7 +160,7 @@ maybePackageModule mod_name = do
found <- findOnPackagePath pkgs hi
case found of
Nothing -> return Nothing
Just (pkg_name,path) ->
Just (pkg_name,path) ->
return (Just (mkModule mod_name pkg_name,
ModuleLocation{
ml_hspp_file = Nothing,
......@@ -178,8 +178,8 @@ findOnPackagePath pkgs file = loop pkgs
loop (p:ps) = do
found <- findOnPath (import_dirs p) file
case found of
Nothing -> loop ps
Just f -> return (Just (mkFastString (name p), f))
Nothing -> loop ps
Just path -> return (Just (mkFastString (name p), path ++ '/':file))
findOnPath :: [String] -> String -> IO (Maybe FilePath)
findOnPath path s = loop path
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment