Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
73970d51
Commit
73970d51
authored
Jun 19, 2016
by
kaiha
Browse files
Remove explicit import of 'System.Directory'
parent
e592fb1f
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Rules/Actions.hs
View file @
73970d51
...
...
@@ -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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment