Cleanup in iTasks.Extensions.Files

parent 21456f53
Pipeline #42399 passed with stage
in 8 minutes and 49 seconds
......@@ -19,6 +19,9 @@ import qualified System.Directory as SD
import iTasks
// withShared in the file selection tasks requires these instances:
derive class iTask RTree, FileInfo
deleteFile :: !FilePath -> Task ()
deleteFile path = accWorldError ('SF'.deleteFile path) (addExplanation ["Failed to delete ",path])
......@@ -123,9 +126,6 @@ where
addExplanation :: ![String] !OSError -> String
addExplanation expl (_,msg) = concat (expl ++ [": ", msg])
//Why is this necessary?!?!?!?
derive class iTask RTree, FileInfo, Tm
selectFileTree :: !Bool !Bool !FilePath [FilePath]-> Task [FilePath]
selectFileTree exp multi root initial
= accWorld (readDirectoryTree root Nothing) @ numberTree
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment