[commit: packages/directory] master: Disable warning in `TestUtils.tryCreateSymbolicLink` (087dbc3)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/087dbc3d7ca0e792770bafd153a8a815763e124b/directory

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

commit 087dbc3d7ca0e792770bafd153a8a815763e124b
Author: Phil Ruffwind <rf at rufflewind.com>
Date:   Sun Mar 8 14:17:02 2015 -0400

    Disable warning in `TestUtils.tryCreateSymbolicLink`
    
    This is to prevent the test from failing on Windows due to the lack of
    privileges to create symbolic links.


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

087dbc3d7ca0e792770bafd153a8a815763e124b
 tests/TestUtils.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/tests/TestUtils.hs b/tests/TestUtils.hs
index 36c357e..a6faea0 100644
--- a/tests/TestUtils.hs
+++ b/tests/TestUtils.hs
@@ -81,8 +81,6 @@ tryCreateSymbolicLink target link = createSymbolicLink target link
 #ifdef mingw32_HOST_OS
   `catchIOError` \ e ->
     if isPermissionError e
-    then do
-      copyPathRecursive (takeDirectory link </> target) link
-      hPutStrLn stderr "warning: didn't test symlinks due to Group Policy"
+    then copyPathRecursive (takeDirectory link </> target) link
     else ioError e
 #endif