[commit: ghc] wip/nfs-locking: Use removeDirectory where appropriate (ccc16b2)

[git at git.haskell.org]

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

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/ccc16b21b7d255b692ffbc9b0c96167bec2ed77e/ghc

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

commit ccc16b21b7d255b692ffbc9b0c96167bec2ed77e
Author: Neil Mitchell <ndmitchell at gmail.com>
Date:   Tue Jan 12 22:33:55 2016 +0000

    Use removeDirectory where appropriate


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

ccc16b21b7d255b692ffbc9b0c96167bec2ed77e
 src/Rules/Libffi.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Rules/Libffi.hs b/src/Rules/Libffi.hs
index 63bc1e8..1d761ff 100644
--- a/src/Rules/Libffi.hs
+++ b/src/Rules/Libffi.hs
@@ -71,7 +71,7 @@ libffiRules :: Rules ()
 libffiRules = do
     libffiDependencies &%> \_ -> do
         when trackBuildSystem $ need [sourcePath -/- "Rules/Libffi.hs"]
-        liftIO $ removeFiles libffiBuild ["//*"]
+        removeDirectory libffiBuild
         createDirectory $ buildRootPath -/- stageString Stage0
 
         tarballs <- getDirectoryFiles "" ["libffi-tarballs/libffi*.tar.gz"]