Commit 0fa71d10 authored by Moritz Angermann's avatar Moritz Angermann
Browse files

:(

parent e4ed614d
......@@ -45,8 +45,8 @@ lookupInPath c
| c /= takeFileName c = return c
| otherwise = do
envPaths <- splitOn ":" <$> getEnvWithDefault "" "PATH"
let candidates = map (-/- c) envPaths in
mapM_ putStrLn candidates
let candidates = map (-/- c) envPaths
liftIO $ mapM_ putStrLn candidates
-- this will crash if we do not find any valid candidate.
head <$> filterM doesFileExist candidates
......
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