LIB: fix bug in copyDir

2016-04-03 14:34:24 +02:00
parent 9b03b36f2f
commit 2777d2d2e8
1 changed files with 1 additions and 1 deletions
--- a/src/HSFM/FileSystem/FileOperations.hs
+++ b/src/HSFM/FileSystem/FileOperations.hs
@@ -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