Commit 22f39e87 authored by sewardj's avatar sewardj
Browse files

[project @ 2001-06-27 15:03:35 by sewardj]

wibble to do with findOnPackagePath
parent 37fce3db
......@@ -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
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