Commit 56d32568 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Unify paths.

parent 05e72426
...@@ -34,7 +34,7 @@ windowsPathOracle :: Rules () ...@@ -34,7 +34,7 @@ windowsPathOracle :: Rules ()
windowsPathOracle = do windowsPathOracle = do
answer <- newCache $ \path -> do answer <- newCache $ \path -> do
Stdout out <- quietly $ cmd ["cygpath", "-m", path] Stdout out <- quietly $ cmd ["cygpath", "-m", path]
let windowsPath = dropWhileEnd isSpace out let windowsPath = unifyPath $ dropWhileEnd isSpace out
putOracle $ "Windows path mapping: " ++ path ++ " => " ++ windowsPath putOracle $ "Windows path mapping: " ++ path ++ " => " ++ windowsPath
return windowsPath return windowsPath
_ <- addOracle $ \(WindowsPath query) -> answer query _ <- addOracle $ \(WindowsPath query) -> answer query
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment