wiiindddoowws

This commit is contained in:
Joey Hess 2014-02-06 20:05:27 -04:00
parent e7ae56114b
commit f404379716

View file

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