X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FFilePath.hs;fp=System%2FFilePath.hs;h=b27dd4f70a95dc76f92169cdb8393704fc30d05b;hb=58d14b870a51520feb2269f8529904d3e8d09ecf;hp=a4f968976c8fa5be4080973ebe4cf9fd79cb5c85;hpb=4c31d64b42b37e76b5117dbd2285fdead9cf1ce2;p=ghc-base.git

diff --git a/System/FilePath.hs b/System/FilePath.hs
index a4f9689..b27dd4f 100644
--- 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