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

wiiindddoowws

Browse source
This commit is contained in:
Joey Hess 2014-02-06 20:05:27 -04:00
parent e7ae56114b
commit f404379716
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Utility/Path.hs
View file

@ -50,9 +50,11 @@ absNormPath dir path = Just $ combine dir path
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS
absNormPathUnix dir path = MissingH.absNormPath dir path absNormPathUnix dir path = MissingH.absNormPath dir path
#else #else
absNormPathUnix dir path = MissingH.absNormPath (fromdos dir) (fromdos path) absNormPathUnix dir path = todos <$> MissingH.absNormPath (fromdos dir) (fromdos path)
where where
fromdos = replace "\\" "/" fromdos = replace "\\" "/"
todos = replace "/" "\\"
#endif #endif
{- Returns the parent directory of a path. {- Returns the parent directory of a path.