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

LIB: update TODO comments

Browse Source
This commit is contained in:
Julian Ospald 2015-12-17 23:11:18 +01:00
parent 87ad7d02f0
commit f2a8f21bf3
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/IO/File.hs
View File

@ -44,6 +44,7 @@ import qualified System.Directory as SD
-- TODO: modify the DTZipper directly after file operations!? -- TODO: modify the DTZipper directly after file operations!?
-- TODO: file operations should be threaded and not block the UI
-- |Data type describing an actual file operation that can be -- |Data type describing an actual file operation that can be
@ -71,7 +72,6 @@ runFileOp _ = return ()
-- and an exception if the source file does not exist. -- and an exception if the source file does not exist.
-- --
-- If the destination file already exists, it will be replaced. -- If the destination file already exists, it will be replaced.
-- TODO: don't permit copying file A to file A
copyFile :: DTZipper a b -- ^ source file copyFile :: DTZipper a b -- ^ source file
-> FilePath -- ^ destination file -> FilePath -- ^ destination file
-> IO () -> IO ()
@ -114,7 +114,6 @@ easyCopyFile from (Right to) = copyFileToDir from to
-- or the file does not exist. -- or the file does not exist.
-- --
-- It also throws exceptions from `removeFile`. -- It also throws exceptions from `removeFile`.
-- TODO: threaded, shouldn't block the GUI
deleteFile :: DTZipper a b -> IO () deleteFile :: DTZipper a b -> IO ()
deleteFile dtz@(File {}, _) = do deleteFile dtz@(File {}, _) = do
let fp = getFullPath dtz let fp = getFullPath dtz
@ -129,7 +128,6 @@ deleteFile dtz = throw $ NotAFile (getFullPath dtz)
-- or the directory does not exist. -- or the directory does not exist.
-- --
-- It also throws exceptions from `removeDirectory`. -- It also throws exceptions from `removeDirectory`.
-- TODO: threaded, shouldn't block the GUI
deleteDir :: DTZipper a b -> IO () deleteDir :: DTZipper a b -> IO ()
deleteDir dtz@(Dir {}, _) = do deleteDir dtz@(Dir {}, _) = do
let fp = getFullPath dtz let fp = getFullPath dtz