From 3e0ef6be70e16de36f2db1de4dcea9740081dfc5 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@gentoo.org>
Date: Sun, 27 Dec 2015 05:31:27 +0100
Subject: [PATCH] LIB: add TODO

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

diff --git a/src/IO/File.hs b/src/IO/File.hs
index eb5c0ec..582f757 100644
--- 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