From: Ian Lynagh <igloo@earth.li>
Date: Sun, 1 Jul 2007 22:25:33 +0000 (+0000)
Subject: Ooops, we don't have dropDrive
X-Git-Tag: 2007-09-13~7
X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=commitdiff_plain;h=1e7b1d58aab549ad7efc2b0f33d5b13872c6e004

Ooops, we don't have dropDrive
Without it we sometimes do a redundant directory creation attempt, but
no harm should be done.
---

diff --git a/System/Directory.hs b/System/Directory.hs
index fa48bf2..fd6774c 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -275,7 +275,7 @@ createDirectoryIfMissing parents file = do
     (True,  _,  _) -> return ()
     (_,  True,  _) -> mapM_ (createDirectoryIfMissing False) $ mkParents file
     (_, False,  _) -> createDirectory file
- where mkParents = scanl1 (</>) . splitDirectories . dropDrive . normalise
+ where mkParents = scanl1 (</>) . splitDirectories . normalise
 
 #if __GLASGOW_HASKELL__
 {- | @'removeDirectory' dir@ removes an existing directory /dir/.  The