projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
d759c72
)
Fix warnings in ghc-pkg on Windows
author
Ian Lynagh
<igloo@earth.li>
Sun, 2 Sep 2007 22:14:42 +0000
(22:14 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sun, 2 Sep 2007 22:14:42 +0000
(22:14 +0000)
utils/ghc-pkg/Main.hs
patch
|
blob
|
history
diff --git
a/utils/ghc-pkg/Main.hs
b/utils/ghc-pkg/Main.hs
index
29e2c8d
..
02370e2
100644
(file)
--- 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)