LIB: fix bug in copyDir
This commit is contained in:
parent
9b03b36f2f
commit
2777d2d2e8
@ -174,7 +174,7 @@ copyDir cm from@(_ :/ Dir fromn FileInfo{ fileMode = fmode })
|
|||||||
top = fullPath to
|
top = fullPath to
|
||||||
destdirp = top P.</> fromn
|
destdirp = top P.</> fromn
|
||||||
throwDestinationInSource fromp destdirp
|
throwDestinationInSource fromp destdirp
|
||||||
throwSameFile fromp destdirp
|
throwSameFile fromp top
|
||||||
throwCantOpenDirectory fromp
|
throwCantOpenDirectory fromp
|
||||||
throwCantOpenDirectory top
|
throwCantOpenDirectory top
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user