projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4c31d64
)
[project @ 2004-12-18 00:43:03 by ross]
author
ross
<unknown>
Sat, 18 Dec 2004 00:43:03 +0000
(
00:43
+0000)
committer
ross
<unknown>
Sat, 18 Dec 2004 00:43:03 +0000
(
00:43
+0000)
avoid a warning by defining getDrive only on Windows
System/FilePath.hs
patch
|
blob
|
history
diff --git
a/System/FilePath.hs
b/System/FilePath.hs
index
a4f9689
..
b27dd4f
100644
(file)
--- a/
System/FilePath.hs
+++ b/
System/FilePath.hs
@@
-290,9
+290,11
@@
commonParent paths@(p:ps) =
#endif
mb_path -> mb_path
where
+#ifdef mingw32_TARGET_OS
getDrive (d:':':_) ds
| not (d `elem` ds) = d:ds
getDrive _ ds = ds
+#endif
common i acc [] ps = checkSep i acc ps
common i acc (c:cs) ps