LIB: fix throwSameFile in copyDir

This commit is contained in:
2016-04-03 17:13:45 +02:00
parent b66e12cc9e
commit 2609338f6e

View File

@@ -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 top throwSameFile fromp destdirp
throwCantOpenDirectory fromp throwCantOpenDirectory fromp
throwCantOpenDirectory top throwCantOpenDirectory top