diff options
| -rw-r--r-- | Utility/Path.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Utility/Path.hs b/Utility/Path.hs index c3a1084ff..817cee480 100644 --- a/Utility/Path.hs +++ b/Utility/Path.hs @@ -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. |