From 395726c5f8e77a01074e775e838658243e39e21c Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 2 Sep 2007 22:14:42 +0000 Subject: [PATCH] Fix warnings in ghc-pkg on Windows --- utils/ghc-pkg/Main.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index 29e2c8d..02370e2 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -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) -- 1.7.10.4