[commit: ghc] wip/nfs-locking: Remove explicit import of 'System.Directory' (73970d5)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 01:04:41 UTC 2017


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

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

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

commit 73970d51a9d40c79ec8ed2aea4d36b5c3ff723b0
Author: Kai Harries <kai.harries at gmail.com>
Date:   Sun Jun 19 09:34:15 2016 +0200

    Remove explicit import of 'System.Directory'


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

73970d51a9d40c79ec8ed2aea4d36b5c3ff723b0
 src/Rules/Actions.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/Rules/Actions.hs b/src/Rules/Actions.hs
index 8fbe6c0..7221441 100644
--- a/src/Rules/Actions.hs
+++ b/src/Rules/Actions.hs
@@ -5,10 +5,9 @@ module Rules.Actions (
     makeExecutable, renderProgram, renderLibrary
     ) where
 
-import qualified System.Directory       as IO
+import qualified System.Directory.Extra as IO
 import qualified System.IO              as IO
 import qualified Control.Exception.Base as IO
-import qualified System.Directory.Extra as X
 
 import Base
 import CmdLineFlag
@@ -133,7 +132,7 @@ copyDirectory source target = do
 copyDirectoryContent :: (FilePath -> IO Bool) -> FilePath -> FilePath -> Action ()
 copyDirectoryContent test source target = do
     putProgressInfo $ renderAction "Copy directory" source target
-    liftIO $ X.listFilesInside test' source >>= mapM_ cp
+    liftIO $ IO.listFilesInside test' source >>= mapM_ cp
   where
     target' a = target -/- fromJust (stripPrefix source a)
     test' a = ifM (test a) (mkdir a >> return True) (return False)



More information about the ghc-commits mailing list