diff --git a/src/IO/File.hs b/src/IO/File.hs
index 86a30fd..6348edb 100644
--- a/src/IO/File.hs
+++ b/src/IO/File.hs
@@ -138,7 +138,6 @@ copyDir cm from@(_ :/ Dir fromn _)
     let fromp    = fullPath from
         top      = fullPath to
         destdirp = fullPath to </> fromn
-    print destdirp
     throwDestinationInSource fromp destdirp
     throwSameFile fromp destdirp