From 58d14b870a51520feb2269f8529904d3e8d09ecf Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Sat, 18 Dec 2004 00:43:03 +0000
Subject: [PATCH] [project @ 2004-12-18 00:43:03 by ross] avoid a warning by
 defining getDrive only on Windows

---
 System/FilePath.hs |    2 ++
 1 file changed, 2 insertions(+)

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
-- 
1.7.10.4