Windows: Look for .exe extension when searching for a command in path.
This commit is contained in:
parent
74ad3072e4
commit
86b845ff8d
2 changed files with 7 additions and 1 deletions
|
@ -181,7 +181,12 @@ searchPath command
|
|||
| otherwise = getSearchPath >>= getM indir
|
||||
where
|
||||
indir d = check $ d </> command
|
||||
check f = ifM (doesFileExist f) ( return (Just f), return Nothing )
|
||||
check f = firstM doesFileExist
|
||||
#ifdef __WINDOWS__
|
||||
[f, f ++ ".exe"]
|
||||
#else
|
||||
[f]
|
||||
#endif
|
||||
|
||||
{- Checks if a filename is a unix dotfile. All files inside dotdirs
|
||||
- count as dotfiles. -}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue