From 1e7b1d58aab549ad7efc2b0f33d5b13872c6e004 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 1 Jul 2007 22:25:33 +0000 Subject: [PATCH] Ooops, we don't have dropDrive Without it we sometimes do a redundant directory creation attempt, but no harm should be done. --- System/Directory.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4