From: ross <unknown>
Date: Sat, 18 Dec 2004 00:43:03 +0000 (+0000)
Subject: [project @ 2004-12-18 00:43:03 by ross]
X-Git-Tag: nhc98-1-18-release~155
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=58d14b870a51520feb2269f8529904d3e8d09ecf;p=haskell-directory.git

[project @ 2004-12-18 00:43:03 by ross]
avoid a warning by defining getDrive only on Windows
---

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