diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-06 20:05:27 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-06 20:05:27 -0400 |
| commit | 7d21b09d98d91910da93a73ca5efb3cff4e386b2 (patch) | |
| tree | 8cdc88315d044931d268b8fc51588b1ade733a38 /Utility/Path.hs | |
| parent | 112f91ecaf898888c02561f37b3e91afc42d2bbe (diff) | |
wiiindddoowws
Diffstat (limited to 'Utility/Path.hs')
| -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. |