mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix Windows breakage

Browse source
This commit is contained in:
Joey Hess 2013-08-02 12:37:45 -04:00
parent 93f2371e09
commit da012e1eeb
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/SafeCommand.hs
View file

@ -37,7 +37,9 @@ toCommand = concatMap unwrap
| isAlphaNum h || h `elem` pathseps = [s] | isAlphaNum h || h `elem` pathseps = [s]
| otherwise = ["./" ++ s] | otherwise = ["./" ++ s]
unwrap (File s) = [s] unwrap (File s) = [s]
pathseps = [pathSeparator, '.'] -- '/' is explicitly included because it's an alternative
-- path separator on Windows.
pathseps = [pathSeparator, './']
{- Run a system command, and returns True or False {- Run a system command, and returns True or False
- if it succeeded or failed. - if it succeeded or failed.