LIB: add TODO

2015-12-27 05:31:27 +01:00
parent af6516a454
commit 3e0ef6be70
1 changed files with 1 additions and 0 deletions
--- a/src/IO/File.hs
+++ b/src/IO/File.hs
@@ -407,6 +407,7 @@ moveFile from to@(_ :/ Dir {}) = do
      to'   = fullPath to </> (name . file $ from)
  throwFileDoesExist to'
  throwSameFile from' to'
+  -- TODO: don't catch all exceptions!
  handle (\(SomeException e) -> do
    easyCopy Strict from to
    easyDelete from