improve comment
This commit is contained in:
parent
0389a22be3
commit
e88ab0c09d
1 changed files with 2 additions and 3 deletions
|
@ -145,11 +145,10 @@ moveFile src dest = tryIO (rename src dest) >>= onrename
|
|||
(Right s) -> return $ isDirectory s
|
||||
#endif
|
||||
|
||||
{- Removes a file, which may or may not exist, and does not have to
|
||||
- be a regular file.
|
||||
{- Removes a file (or symlink), which may or may not exist.
|
||||
-
|
||||
- Note that an exception is thrown if the file exists but
|
||||
- cannot be removed. -}
|
||||
- cannot be removed, or if its a directory. -}
|
||||
nukeFile :: FilePath -> IO ()
|
||||
nukeFile file = void $ tryWhenExists go
|
||||
where
|
||||
|
|
Loading…
Reference in a new issue