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

LIB: make deleteDirRecursive a little bit more safer

Browse Source
This commit is contained in:
Julian Ospald 2015-12-27 20:00:28 +01:00
parent 5d44243689
commit a81ef6a38c
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/IO/File.hs
View File

@ -318,7 +318,8 @@ deleteDirRecursive f@(_ :/ Dir {}) = do
case file of case file of
(_ :/ SymLink {}) -> deleteSymlink file (_ :/ SymLink {}) -> deleteSymlink file
(_ :/ Dir {}) -> deleteDirRecursive file (_ :/ Dir {}) -> deleteDirRecursive file
(_ :/ f) -> removeLink (fullPath file) (AFileLike _) -> removeLink (fullPath file)
_ -> throw $ FileDoesExist (fullPath file)
removeDirectory fp removeDirectory fp
deleteDirRecursive _ = throw $ InvalidOperation "wrong input type" deleteDirRecursive _ = throw $ InvalidOperation "wrong input type"