From 2609338f6e6d2f06db64fb639a4cd236fc0087e0 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Sun, 3 Apr 2016 17:13:45 +0200
Subject: [PATCH] LIB: fix throwSameFile in copyDir

---
 src/HSFM/FileSystem/FileOperations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/HSFM/FileSystem/FileOperations.hs b/src/HSFM/FileSystem/FileOperations.hs
index c22a546..32d7b93 100644
--- 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 top
+    throwSameFile fromp destdirp
     throwCantOpenDirectory fromp
     throwCantOpenDirectory top