[commit: packages/directory] improve-tests, improve-tests-for-real, master: Revert "Fix incorrect comment about removeDirectoryRecursive and symlinks" (692ae76)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/directory

On branches: improve-tests,improve-tests-for-real,master
Link       : http://ghc.haskell.org/trac/ghc/changeset/692ae76983380871115bd3bb84182000f961aeda/directory

>---------------------------------------------------------------

commit 692ae76983380871115bd3bb84182000f961aeda
Author: Elliot Robinson <elliot.robinson at argiopetech.com>
Date:   Wed Feb 18 15:13:37 2015 -0500

    Revert "Fix incorrect comment about removeDirectoryRecursive and symlinks"
    
    This reverts commit db88005a736f88ac212152d69ce4002f4d852219.


>---------------------------------------------------------------

692ae76983380871115bd3bb84182000f961aeda
 System/Directory.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/System/Directory.hs b/System/Directory.hs
index 8f9b2c1..c44cad6 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -457,10 +457,9 @@ removeDirectory path =
 
 #endif
 
--- | @'removeDirectoryRecursive' dir@ removes an existing directory
--- /dir/ together with its content and all subdirectories. If the
--- directory contains symlinks this function removes but does not
--- follow them.
+-- | @'removeDirectoryRecursive' dir@  removes an existing directory /dir/
+-- together with its content and all subdirectories. Be careful,
+-- if the directory contains symlinks, the function will follow them.
 removeDirectoryRecursive :: FilePath -> IO ()
 removeDirectoryRecursive startLoc = do
   cont <- getDirectoryContents startLoc