hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

LIB: add TODO

Browse Source
This commit is contained in:
hasufell 2015-12-27 05:31:27 +01:00
parent af6516a454
commit 3e0ef6be70
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/IO/File.hs
View File

@ -407,6 +407,7 @@ moveFile from to@(_ :/ Dir {}) = do
to' = fullPath to </> (name . file $ from) to' = fullPath to </> (name . file $ from)
throwFileDoesExist to' throwFileDoesExist to'
throwSameFile from' to' throwSameFile from' to'
-- TODO: don't catch all exceptions!
handle (\(SomeException e) -> do handle (\(SomeException e) -> do
easyCopy Strict from to easyCopy Strict from to
easyDelete from easyDelete from