diff options
Diffstat (limited to 'Utility')
| -rw-r--r-- | Utility/Path.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Utility/Path.hs b/Utility/Path.hs index 78d359bef..c3a1084ff 100644 --- a/Utility/Path.hs +++ b/Utility/Path.hs @@ -42,7 +42,7 @@ absNormPath :: FilePath -> FilePath -> Maybe FilePath #ifndef mingw32_HOST_OS absNormPath dir path = MissingH.absNormPath dir path #else -absNormPath dir path = MissingH.absNormPath dir path +absNormPath dir path = Just $ combine dir path #endif {- On Windows, this converts the paths to unix-style, in order to run @@ -50,7 +50,6 @@ absNormPath dir path = MissingH.absNormPath dir path #ifndef mingw32_HOST_OS absNormPathUnix dir path = MissingH.absNormPath dir path #else -absNormPathUnix dir path = Just $ combine dir path absNormPathUnix dir path = MissingH.absNormPath (fromdos dir) (fromdos path) where fromdos = replace "\\" "/" |