Commit 395726c5 authored by Ian Lynagh's avatar Ian Lynagh

Fix warnings in ghc-pkg on Windows

parent d759c723
......@@ -1020,7 +1020,10 @@ dieForcible s = die (s ++ " (use --force to override)")
-- Cut and pasted from ghc/compiler/SysTools
#if defined(mingw32_HOST_OS)
subst :: Char -> Char -> String -> String
subst a b ls = map (\ x -> if x == a then b else x) ls
unDosifyPath :: FilePath -> FilePath
unDosifyPath xs = subst '\\' '/' xs
getExecDir :: String -> IO (Maybe String)
......
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