[project @ 2004-12-18 00:43:03 by ross]

[haskell-directory.git] / System / FilePath.hs

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