From 9fbe43e7d54e2a480b49789345e9afb56be2e4bc Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@hasufell.de>
Date: Fri, 18 Dec 2015 17:00:44 +0100
Subject: [PATCH] LIB: don't allow same source and dest in copyDir

---
 src/IO/File.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/IO/File.hs b/src/IO/File.hs
index fe4de75..a496456 100644
--- a/src/IO/File.hs
+++ b/src/IO/File.hs
@@ -116,6 +116,7 @@ copyDir cm from@(Dir fn _ _, _) to@(Dir {}, _) = do
   dirSanityThrow fromp
   dirSanityThrow top
   throwDestinationInSource fromp top
+  throwSameFile fromp destdir
 
   createDestdir destdir