Commit 73970d51 authored by kaiha's avatar kaiha
Browse files

Remove explicit import of 'System.Directory'

parent e592fb1f
...@@ -5,10 +5,9 @@ module Rules.Actions ( ...@@ -5,10 +5,9 @@ module Rules.Actions (
makeExecutable, renderProgram, renderLibrary makeExecutable, renderProgram, renderLibrary
) where ) where
import qualified System.Directory as IO import qualified System.Directory.Extra as IO
import qualified System.IO as IO import qualified System.IO as IO
import qualified Control.Exception.Base as IO import qualified Control.Exception.Base as IO
import qualified System.Directory.Extra as X
import Base import Base
import CmdLineFlag import CmdLineFlag
...@@ -133,7 +132,7 @@ copyDirectory source target = do ...@@ -133,7 +132,7 @@ copyDirectory source target = do
copyDirectoryContent :: (FilePath -> IO Bool) -> FilePath -> FilePath -> Action () copyDirectoryContent :: (FilePath -> IO Bool) -> FilePath -> FilePath -> Action ()
copyDirectoryContent test source target = do copyDirectoryContent test source target = do
putProgressInfo $ renderAction "Copy directory" source target putProgressInfo $ renderAction "Copy directory" source target
liftIO $ X.listFilesInside test' source >>= mapM_ cp liftIO $ IO.listFilesInside test' source >>= mapM_ cp
where where
target' a = target -/- fromJust (stripPrefix source a) target' a = target -/- fromJust (stripPrefix source a)
test' a = ifM (test a) (mkdir a >> return True) (return False) test' a = ifM (test a) (mkdir a >> return True) (return False)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment