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

LIB: don't do anything for FileLike (CharDev etc) yet

Browse Source
This commit is contained in:
Julian Ospald 2015-12-30 02:16:39 +01:00
parent ed32961155
commit 048bf8a328
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/IO/File.hs
View File

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