[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