LIB: don't allow same source and dest in copyDir

2015-12-18 17:00:44 +01:00
parent 58665d7b29
commit 9fbe43e7d5
1 changed files with 1 additions and 0 deletions
--- 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