LIB: fix bug in copyDir

This commit is contained in:
Julian Ospald 2016-04-03 14:34:24 +02:00
parent 9b03b36f2f
commit 2777d2d2e8
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 1 additions and 1 deletions

View File

@ -174,7 +174,7 @@ copyDir cm from@(_ :/ Dir fromn FileInfo{ fileMode = fmode })
top = fullPath to
destdirp = top P.</> fromn
throwDestinationInSource fromp destdirp
throwSameFile fromp destdirp
throwSameFile fromp top
throwCantOpenDirectory fromp
throwCantOpenDirectory top